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Preface 


This publication contains the program specifications 
and operating procedures for the cobol (on disk) pro- 
gramming system for ibm 1401, 1440, and 1460. In 
this publication, the term cobol system refers to 
1401/1440/1460 COBOL (on Disk), program number 
1440-CB-073. The language specifications for the cobol 
system are contained in the Systems Reference Library 
Dublication COBOL (on Disk) Specifications for IBM 
1401, 1440, and 1460, Form C24-3235. 

This publication is divided into two major sections; 
program specifications and operating procedures. The 
program specifications describe the cobol system. In- 
cluded in the section are such topics as a description of 
the System Control Program (the controlling element 
of the cobol system ) , a description of the cobol com- 
piler, and a detailed description of the results of sys- 
tem operations. Although this section is directed pri- 
marily at the programmer, the machine operator 
should review the section for an understanding of the 
system. 

The second section, operating procedures, contains 
such topics as preparing processor jobs, changing file 
assignments for processor jobs, and running processor 
jobs. The last part of the section outlines the pro- 
cedures to follow in building a cobol system. For the 
convenience of both programmer and machine opera- 
tor, all control cards are summarized in Appendix I. 

Although the second section is directed primarily at 
the machine operator, it is recommended that the pro- 
grammer review the content of the entire section. The 
programmer should particularly note the parts of the 
section dealing with preparing processor jobs and 
changing file assignments. 


Related Information 

The following Systems Reference Library publications 
contain additional information relating to cobol pro- 
gramming. It is recommended that these publications 
be available to the user for reference purposes. 


COBOL General Information Manual, Form F28- 
8053. 

COBOL (on Disk) Specifications for IBM 1401, 1440, 
and 1460, Form C24-3235. 

In addition, it is recommended that the user be fa- 
miliar with the following Systems Reference Library 
Autocoder publications. 

Autocoder (on Disk) Language Specifications for 
IBM 1401, 1440, and 1460, Form C24-3258. 

Autocoder (on Disk) Program Specifications and Op- 
erating Procedures for IBM 1401, 1440, and 1460, Form 
C24-3259. 

If the user’s system is ibm 1401 or ibm 1460, it is 
recommended that the user have access to the follow- 
ing Systems Reference Library publications. 

Input/Output Control System (on Disk) Specifica- 
tions for IBM 1401 and 1460, Form C24-1489. 

Input/Output Control System (on Disk) Operating 
Procedures for IBM 1401 and 1460, Form C24-3298. 

Disk Utility Programs Specifications for IBM 1401, 
1440, and 1460 (with 1301 and 1311), Form C24-1484. 

Disk Utility Programs Operating Procedures for 
IBM 1401 and 1460 (with 1301 and 1311), Form C24- 
3105. 

If the user’s system is ibm 1440, it is recommended 
that the user have access to the following Systems 
Reference Library publications. 

Input/Output Control System Specifications for IBM 
1440, Form C24-3011. 

Input/Output Control System Operating Procedures 
for IBM 1440, Form C24-3299. 

Disk Utility Programs Specifications for IBM 1401, 
1440, and 1460 (with 1301 and 1311 ), Form C24-1484. 

Disk Utility Programs Operating Procedures for 
IBM 1440 (with 1301 and 1311), Form C24-3121. 


Major Revision, February 1965 

This edition, C24-3242-2, is a major revision of and obsoletes 
C24-3242-1. 

Copies of this and other ibm publications can be obtained through ibm Branch Offices. 

Address comments concerning the content of this publication to ibm Product Publications, Endicott, New York 13764. 
© 1964 by International Business Machines Corporation 
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Program Specifications 


This publication describes the program specifications 
and operating procedures used to assemble a machine- 
language program from a source program written in 
ibm 1401, 1440, and 1460 cobol language. It also de- 
scribes the operating procedures for building and 
modifying the cobol system on a disk unit. 

This system resides on a file=protected area of a disk- 
storage unit. By the use of the System Control Pro- 
gram, the controlling element of the cobol system, it 
is possible to stack the input to and output from a 
series of tasks. Further, the System Control Program 
allows the user to assign input/output devices for a 
defined set of logical files. 

The similarity between cobol and ordinary busi- 
ness English provides programmers with a convenient 
method for writing source programs. Source program 
statements are translated into machine language by 
the cobol system. This permits the programmer to di- 
rect his attention primarily toward the solution of the 
problem, rather than toward the specific method of 
implementing the solution on the machine. 

Definition of Key Terms 

To clarify the meaning of special terms used in this 
publication, the following definitions are given. Stand- 
ard terms arc defined in Glossary for Information Proc- 
essing, Form C20-8089. 

Assembler. The program that translates Autocoder 
symbolic statements into actual machine language. 
This process is called an assembly. 

Batched Files. Logical files whose contents represent 
one or more sequential sets of input to or output 
from the cobol system. 

Card Boot. A card deck, supplied as part of the Auto- 
coder system program deck, that is used to start all 
system operations. 

Job. An operation or series of operations to be per- 
formed by the cobol system. 

Logical Files. Input/output devices and/or areas used 
by the cobol system. 

Object-time. A term describing those elements or proc- 
esses related to the execution of a machine-language 
object program. 

Operation. A basic unit of work to be performed by 
one of the components of tire system. 


Stack. A set of one or more jobs to be processed during 
the same machine run. 

System. The set of programs made up of the elements 
required for compiling, assembling, and/or execut- 
ing user-programs. 

[ ] Brackets contain an option that may be chosen. 

{ I Braces contain options, one of which must be 
chosen. 

Machine Requirements 

To process a cobol source program, the following 
minimum machine configurations are specified. 

An ibm 1401 System with: 

4,000 positions of core storage 
Advanced Programming Feature 
High-Low-Equal Compare Feature 
One ium 1311 Disk Storage Drive 

One ibm 1402 Card Read-Punch — 

One ibm 1403 Printer 

An ibm 1440 System with: 

4.000 positions of core storage 

Indexing and Store Address Register Feature 
One ibm 1311 Disk Storage Drive 
One ibm 1442 Card Reader 
One ibm 1443 Printer 

An ibm 1440 System with: 

8.000 positions of core storage 

Indexing and Store Address Register Feature 
One ibm 1301 Disk Storage 
One ibm 1442 Card Reader 
One ibm 1443 Printer 

An ibm 1460 System with: 

8,000 positions of core storage 

One ibm 1311 Disk Storage Drive, or one ibm 1301 Disk 
Storage 

One ibm 1311 Disk Storage Drive 
One ibm 1402 Card Read-Punch 
One ibm 1403 Printer 

The system on which the object program is to be exe- 
cuted must have: 

1. A card reader or a disk file to load the object pro- 
gram resulting from the Output processor. 

2. Sufficient core storage to contain the program gen- 
erated by the cobol compiler. If the object program 
requires more than the available core-storage ca- 
pacity, either the program must be executed in sec- 
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tions (overlays) or the job must be divided into 
multiple runs. 

3. The input and output devices defined in the file- 
control paragraph or the special-names para- 
graph. 

4. Sense switches when they are referred to in the 
special-names paragraph. 

The cobol system can use the following devices, 
if available: 
ibm 1444 Card Punch 
ibm 1447 Console without a buffer feature. 


The COBOL System 

The IBM 1401, 1440, and 1460 cobol system built by 

the user contains a System Control Program, the cobol 

compiler, the Autocoder assembler, Input/Output 

Control System ( IOCS ), and cobol macro instructions. 

System Control Program. The main function of the 
System Control Program is to analyze control-card 
information, determine the specific control mode, 
and transfer program control to the appropriate por- 
tion of the system. 

COBOL Compiler. The cobol compiler portion of the 
system operates under the control of the System 
Control Program. The compiler translates the source 
program, written in the cobol language, into Auto- 
coder-IOCS symbolic statements. 

Autocoder Assembler. The Autocoder assembler por- 
tion of the cobol system operates on the results of 
the cobol compiler. The Autocoder library must 
contain IOCS and the cobol macro instructions. For 
a complete description of the Autocoder assembler, 
see the Systems Reference Library publication, 
Autocoder (on Disk) Program Specifications and Op- 
erating Procedures for IBM 1401, 1440, and 1460, 
Form C24-3259. 

IOCS. Standard input/output macro instructions are 
used by the cobol system for all cobol files. A com- 
plete description of IOCS is in either Input/Output 
Control System (on Disk) Operating Procedures for 
IBM 1401 and 1460 , Form C24-3298, or Input/ 
Output Control System Operating Procedures for 
IBM 1440, Form C24-3299. 

COBOL Macros, cobol macros, a special set of macro 
instructions, are used by the cobol system to set 
permanent switches during the assembly for the use 
of other macros, to generate the cobol object-time 
subroutines, and to generate a limited set of inline 
expansions. 


System Control Program 

All system operations are initiated by a deck of cards 
supplied by ibm. This deck, called the Card Boot, reads 
in the first portion of the System Control Program from 
disk storage. Ultimately, the entire resident portion of 
the System Control Program is read into lower core 
storage. 

All control-type functions for the system are accom- 
plished by the System Control Program. These func- 
tions include; 

Assigning Input/ Output Devices. Input/output opera- 
tions are coordinated with user-specified input/out- 
put devices. 

Updating the System. The System Control Program up- 
dates the system to the latest modification level or 
version. 

Selecting Appropriate Processor Runs. Through control 
cards supplied by the user, the System Control Pro- 
gram determines the operations necessary for the 
completion of a job. For example, a source program 
is coded in the cobol language, and the user specifies 
the end result of processing to be a machine-lan- 
guage object program. This would require that proc- 
essing be performed by the cobol compiler, the 
Autocoder processor, and the Output processor. The 
control card says in effect that the source program 
is coded in cobol, and that processing is to run 
through the Output processor. The System Control 
Program reads the control card and calls in the 
cobol compiler. Processing takes place, and at com- 
pletion, control reverts to the System Control Pro- 
gram. The Autocoder processor is called, processing 
takes place, and at completion, control reverts to the 
System Control Program. The Output processor is 
called, processing takes place, and at completion, 
control again reverts to the System Control Program. 
Because the Output processor was the last processor 
to be selected, the System Control Program reads the 
control card for the next job. 

Logical Files 

A set of logical files, defined by the cobol system, is 
used for input/output operations. Each file has a spe- 
cific function and is assigned by the System Control 
Program to a particular device. The user can alter the 
file-assignments by using asgn (assign) control cards. 
(See Changing File Assignments.) 

The logical files may be thought of as falling into one 
of four general categories. These categories are: 
Residence File 
Operation Files 
External Files 
Internal Files. 
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Residence File 

SYSTEM File. The system file contains the System 
Control Program, the cobol Compiler Program, and 
the Autocoder Assembler Program. It is assigned to 
a fixed area in a disk unit. 


Operation Files 

CONTROL File. The control file contains cards or 
card images that send control information to the Sys- 
tem Control Program. It can be assigned to the card 
reader or the console printer. 

MESSAGE File. The message file contains information 
of primary interest to the machine operator. These 
messages are usually diagnostics relating to the oper- 
ating procedures and/ or instructions to the machine 
operator. It can be assigned to the printer or the con- 
sole printer. 


External Files 

LIST File. The list file, generally associated with high- 
volume printed listings, contains information di- 
rected primarily to the source programmer. It can be 
assigned to the printer, or to disk storage, or it can be 
omitted. If the list file is assigned to a disk unit, the 
information is stored two sectors per printed line in 
the move mode. 

INPUT File. The input file contains source information 
to the processors. It can be assigned to the card 
reader or to any available area in disk storage. If the 
file is assigned to a disk unit, the card images must 
be stored one card per sector in the move mode. 

OUTPUT File. The output file contains the results of 
the operation or series of operations specified in the 
run card. It can be assigned to the card punch, or to 
disk storage, or it can be omitted. If the file is as- 
signed to a disk unit, any card images will be stored 
one per sector in the move mode. 

LIBRARY File. The library file is a disk-storage file 
that supports the Autocoder macro facility. This file 
contains the library table and library routines, such 
as IOCS. It is maintained by the Autocoder Librar- 
ian and used by the Autocoder Macro Generator. 
The library file can be assigned to any available 
area in disk storage. 

CORELOAD File. The coreload file is a disk-storage 
file used by the Output and Execution processors of 
the Autocoder Assembler Program. The file contains 
an object program in the load mode. The coreload 


file is developed by the Output processor and is used 
by the Execution processor. 

Note. Only the external files input, output, coreload, and 
list can be batched. Batching will be performed when 
a series of jobs is processed without intermediate file 
assignments to these external files. When batch process- 
ing is performed, input to and output from the processors 
is stored sequentially within the files. 

Internal Files 

WORK Files. The work files (workI through work5) 
are mass-storage files that contain intermediate re- 
sults of the processors. The work files can be as- 
signed to any available area in disk storage. 


Control Cards 

The System Control Program recognizes six types of 
control cards. They are: 

run 

ASGN 

UPDAT 

NOTE 

PAUSE 

HALT 

Each type is punched in the Autocoder format. Appen- 
dix I contains a summary of all specific control cards 
that the System Control Program recognizes. Included 
in Appendix I is a detailed description of the manner of 
punching each specific control card and valid entries 
for each of the general formats as discussed in the fol- 
lowing sections. 

RUN Card 

The run card indicates the portion(s) of the cobol sys- 
tem that are to be selected by the System Control Pro- 
gram. A run card is required for each job to be per- 
formed. The general format of the run card is: 





( AUTOCODER 

COBOL 

RUN 

THRU 

\ OUTPUT \ 

1 EXECUTION ) 


If the optional part of the run card is omitted (thru 
autocoder, thru output, or thru execution), the Sys- 
tem Control Program assumes that only the named 
processor is to be selected. The thru option enables 
the System Control Program to call a series of proc- 
essors automatically. 

Valid entries for the run card are: 

COBOL RUN 

COBOL RUN THRU AUTOCODER 
COBOL RUN THRU OUTPUT 
COBOL RUN THRU EXECUTION 
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ASGN Cards 

An asgn card indicates to the System Control Program 
that a logical file is to be assigned to a specific input/ 
output device. An asgn card is used when the user 
wants a logical file assigned to an input/output device 
or area other than the assumed assignment of the Sys- 
tem Control Program, or when the user wants to 
change an assignment that he has previously made. 

The general format for an asgn card is: 

file-name ASGN j [ 

The file-name is the specific logical file; device is the 
input/output unit to which the logical file is to be as- 
signed. Two examples for using an asgn card follow. 

The logical file, input, is to be changed from the as- 
sumed device assignment (reader 1) of the System 
Control Program to an area in disk storage. This area is 
to be on 1311 unit 3, beginning at address 000600 and 
extending to (not through) 000900. Note that the end 
address to be punched is one more than the area actu- 
ally used by the input file. The asgn card for this ex- 
ample is punched: 

INPUT ASGN 1311 UNIT 3, START 000600, END 000900 

The second example is when a logical file is to be 
omitted. (This option is valid only in specific cases.) If 
the output file is to be omitted, the asgn card is 
punched: 

OUTPUT ASGN OMIT 

The user must leave blanks between items in the 
operand field where indicated in the specific formats. 
For example, if the operand is reader 2, there must be 
a blank between reader and 2. 

During a single stack of jobs, an assignment made by 
the user for a single logical file remains in effect until 
a halt card or another asgn card is sensed for that par- 
ticular file. For example, an asgn card that specifies the 
input file to be assigned to reader 2 causes the as- 
sumed assignment, reader 1, to be altered. The System 
Control Program will select reader 2 during a single 
stack until another asgn card for the input file is en- 
countered. 


UPDAT Card 

The updat card is included in a package supplied by 
ibm for the purpose of updating the user's cobol sys- 
tem. It is prepunched in the following format : 


j processor-name 
} SYSTEM 


( ALL j 
) DELETE f 
UPDAT phase-name, < HEADER / 
i INSERT \ 
\ PATCH J 


This card (excluding delete) will be followed by the 
appropriate data cards. 


NOTE Card 

The note card contains messages and/or instructions 
from the programmer to the machine operator. Process- 
ing is not interrupted when the System Control Pro- 
gram senses this control card. The contents of the note 
card are printed on the message file. The general for- 
mat of the note card is: 

NOTE any message and/or instruction 

A note card could be used when the programmer 
wants to direct that the output from a series of com- 
pilations be placed on the output file located on disk- 
drive 2. A note card could be used, at the completion 
of processing the series of jobs, to tell the machine 
operator to remove the disk pack from drive 2. The 
message would be: 

NOTE REMOVE DISK PACK FROM DISK DRIVE 2 


PAUSE Card 

The pause card contains messages and/or instructions 
from the programmer to the machine operator. When 
the pause card is sensed, the System Control Program 
temporarily halts the system. The contents of the pause 
card are printed on the message file. Processing is re- 
sumed by pressing the start key. The general format 
for the pause card is: 

PAUSE any message and/ or instruction 

One application of the use of a pause card might be 
in the case where the input file for a job is located on 
disk unit 3. The programmer could inform the machine 
operator of this fact by using a pause card, telling him 
to ready the drive. The message would be: 

PAUSE READY THE PACK ON DISK DRIVE 3 


HALT Card 

The halt card indicates to the System Control Pro- 
gram that processing has been completed. It is the last 
card of a stack. The contents of the halt card are 
printed on the message file. The general format for the 
halt card is: 

HALT any message and/or identification 


COBOL Compiler 

The cobol compiler, operating under the control of 
the System Control Program, translates source pro- 
grams written in the cobol language into Autocoder- 
IOCS statements. 
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In order that this translating process be accom- 
plished, the compiler is divided into ten logical seg- 
ments, each of which is made up of phases. They are: 

Phases Function 

A Syntax Scan 

B Name Compression and Diagnostics 

C Data Prescan 

D Data Scan 

E IOCS 

F Procedure Prescan 

G Procedure Scan 

H Data-Descriptions Merge 

I General to Particular Macros 

J Macro Expander 

A complete description of the phases that comprise the 
cobol compiler is contained in Appendix II. 


Autocoder Assembler 

The Autocoder assembler contained in the cobol sys- 
tem is the ibm 1401, 1440, and 1460 Autocoder sys- 
tem that is under control of the System Control Pro- 
gram. The Autocoder system is described in detail in 
the Systems Reference Library publication Autocoder 
(on Disk) Program Specifications and Operating Pro- 
cedures for IBM 1401, 1440, and 1460, Form C24-3259. 


IOCS 

Standard macro instructions of the Input/Output Con- 
trol System (IOCS) are used by the cobol system. De- 
tailed information pertaining to the macro system can 
be found in the Systems Reference Library publication 
Input/Output Control System (on Disk) Operating 
Procedures for IBM 1401 and 1460, Form C24-3298, or 
Input /Output Control System Operating Procedures 
for IBM 1440, Form C24-3299. 


COBOL Macros 

In addition to the IOCS macro instructions, the system 
includes twenty -five special cobol macros. Appendix 
III shows the macros, the names of the subroutines that 
are called by using the macros, and the reason for call- 
ing the routines. 

ACEPT 

The ACEPT macro generates the accept subroutine. 
The low-order position and the length of a field is 


specified. The accept subroutine reads the appropriate 
number of characters to fill this field. The linkage used 
for the accept subroutine is : 


B ZAX 


DCW 001 


002 

(Console Printer) 

DCW 004 

(Pocket-1402) 

002 


000 


DCW 001 

(Unit-1442) 

002 


DCW NAMEI 


DCW @0@ 

(Not Subscripted) 

@1@ 

(Subscripted) 

DCW 009 

(Name Size) 

ALCOM 


The ALCOM macro generates the alphabetic-compare 
subroutine. This subroutine is used when two alpha- 
betic records with subfields are to be compared. The 
linkage used for the alphabetic-compare subroutine is : 

B YAQ 

DCW NAMEI 
DCW n 

(Not used) 

DCW nnn 

(Length of NAMEI) 

DCW NAME2 


DCW n 

(Not used) 

DCW nnn 

(Length of NAME2) 

DCW @bSS@ 

(NAMEI ^ NAME2) 

@b//@ 

(NAMEI = NAME2) 

@bTS@ 

(NAMEI > NAME2) 

@bUS@ 

(NAMEI < NAME2) 

@bTT@ 

(NAMEI > NAME2) 

@bUU@ 

(NAMEI < NAME2) 

DCW BRANCH 

LABEL 


DIVDE 

The DIVDE macro generates the divide subroutine. 
The subroutine is used as a substitute for the divide 
operation code. The linkage used for the divide sub- 
routine is: 

B DIV 
DCW NAMEI 
DCW NAME2 

DSPLY 

The DSPLY macro generates the display subroutine. 
The number of fields, the input device, the low-order 
position of each field, and the length of each field are 
specified. The display subroutine packs these fields se- 
quentially in a buffer area, and subsequently outputs 
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them on the specified display device (the card punch, 
the printer, or the console printer). The linkage used 
for the display subroutine is: 


B ZDY 


DCW 000 

(Punch) 

001 

(Printer) 

002 

(Console Printer) 

DCW 004 

(Pocket-1402) 

008 


000 


DCW 001 

(Unit-1442) 

002 


DCW nnn 

(Number of names to be displayed) 

DCW N 

(Name of field) 

DCW @0@ 

(Not subscripted) 

@1@ 

(Subscripted) 

DCW nnn 

(Length of Name) 

DCW N„ 


DCW @0@n 


@l@n 


DCW nnn 



EDIT 1 

The EDIT1 macro generates the editing subroutine. 
This subroutine is used when editing which is not in- 
cluded within the 1401, 1440, or 1460 Central Process- 
ing Unit is used by the cobol program. Editing fea- 
tures that are not handled by the central processing 
units are: cobol zeros, floating plus or minus signs, 
single plus sign, and DB. When the editing function is 
completed, the subroutine returns to the location fol- 
lowing the parameters of this subroutine. The linkage 
used for the editing subroutine is: 


B ZET 



DCW NAME1 

(Sending field) 


DCW 0 

(Not subscripted) 


1 

(Subscripted) 


DCW NAME2 

(Label of cobol mask) 


000 

(No cobol mask) 


DCW @DbD@ 

(Replace CR by DB) 


@nnn@ 

(Position of plus sign) 


@KbK@ 

(Neither editing feature 

desired) 

DCW @+b+@ 

(Floating plus sign) 


@— b— @ 

(Floating minus sign) 


@KbK@ 

(Neither editing feature 

desired) 

DCW NAME2 

(Receiving field) 


DCW 0 

(ISJot subscripted) 


1 

(Subscripted) 


DCW nnn 

Li = Length of edited field 

DCW nnn 

L 2 = Length of field to be edited 


EXPIN 

The EXPIN macro generates the exponentiation sub- 
routine that is used when a number is exponentiated 


to an integer power. The linkage used for the expo- 
nentiation subroutine is: 


B ZFZ 


DCW NAME1 

(Name of base) 

DCW nnn 

(Number of decimals if NAME1 = GT)* 

DCW n 

(Subscript indicator) 

DCW nnn 

(Number of decimals in NAME1) 

DCW NAME2 

(Name of power) 

DCW nnn 

(Number of decimals if NAME2 = GT)* 

DCW n 

(Subscript indicator) 

DCW nnn 

(Number of decimals in NAME2) 

DCW NAME3 

(Name of intermediate result field) 

DCW SIZE1 

(Length of field 1) 

DCW SIZE2 

(Length of field 2) 

*GT is equivalent to generated temporary result field. 

EXPNI 


The EXPNI macro generates the exponentiation sub- 

routine that is used when a number is exponentiated 

to a decimal power. The linkage used for the exponen- 

tiation subroutine : 

is: 

B ZXZ 


DCW NAME1 

(Name of base) 

DCW nnn 

(Number of decimals if NAME1 = GT)* 

DCW n 

(Subscript indicator) 

DCW nnn 

(Number of decimals in NAME1) 

DCW NAME2 

(Name of power) 

DCW nnn 

(Number of decimals if NAME2 = GT)* 

DCW n 

(Subscript indicator) 

DCW nnn 

(Number of decimals in NAME2) 

DCW NAME3 

(Name of intermediate result field) 

DCW SIZE1 

(Length of field 1) 

DCW SIZE2 

(Length of field 2) 

*GT is equivalent to generated temporary result field. 

FGCOM 


The FGCOM macro generates the compare-figcon 

subroutine. This 

subroutine is used when a record 

with subfields is to be compared to a figurative constant 

(high value, low value, quote, and ALL alpha literal). 

The linkage used for the compare-figcon subroutine is: 

B YCL 


DCW NAME1 


DCW n 

(Not used) 

DCW nnn 

(Length of NAME1) 

DCW NAME2 


DCW n 

(Not used) 

rvntir 

vv mm 

(Length uf NAiviE2) 

DCW @bSS@ 

(NAME1 ^ NAME2) 

@b//@ 

(NAME1 = NAME2) 

@bTS@ 

(NAME1 > NAME2) 

@bUS@ 

(NAME1 < NAME2) 

@bTT@ 

(NAME1 > NAME2) 

@bUU@ 

(NAME1 < NAME2) 

DCW BRANCH LABEL 

DCW 000 

(Neither figcon) 

001 

(NAME1 figcon) 

002 

(NAME2 figcon) 
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GOTOD 

The GOTOD macro generates the go-to-depending 
subroutine. This subroutine tests the value of data- 
name (NAME1). If the value of data-name exceeds the 
number of branch levels given, or if it is equal to zero, 
the subroutine returns to the location following the 
parameters of this subroutine. Otherwise, the subrou- 
tine branches to the 1st, 2nd, . . ., nth branch label ad- 
dress if the value of data-name is 1, 2, . . ., n. The link- 
age used for the go-to-depending subroutine is: 

B ZGP 

DCW nnn (Number of branch labels) 

DCW NAME1 

DCW nnn 

DCW 0 (Not subscripted) 

1 (Subscripted) 

DCW LABEL 1 (Branch labels) 


DCW LABELn 


IFALP 

The IFALP macro generates the if-alphabetic sub- 
routine. This subroutine is used when a field is to be 
tested to see whether it is alphabetic. If both the result 
of the test and the operator are true, the subroutine 
branches to the label address given as parameter 4. If 
either fails, the subroutine returns to the location fol- 
lowing the parameters of this subroutine. The linkage 
used for the if-alphabetic subroutine is: 

B YIP 

DCW NAME1 

DCW 0 (Not subscripted) 

1 (Subscripted) 

DCW nnn (Length of NAME1) 

DCW BRANCH LEVEL 

DCW @$10@ (Alphabetic) 

@blO@ (Not alphabetic) 


IFNUM 

The IFNUM macro generates the if-numeric subrou- 
tine. This subroutine is used when a field is to be tested 
to see whether it is numeric. If the result of this test 
agrees with the operator, the subroutine branches to 
the label address given as parameter 4. If the result 
does not agree with the operator, the subroutine re- 
turns to the location following the parameters of the 


routine. The linkage used for the if-numeric sub- 
routine is: 

B YIN 
DCW NAME1 

DCW 0 (Not subscripted) 

1 (Subscripted) 

DCW nnn (Size of NAME1) 

DCW BRANCH LABEL 

DCW @$16@ (Numeric) 

@bl6@ (Not numeric) 

INDIX 

The INDIX macro generates the subscript-index sub- 
routine. This subroutine is used by all cobol subrou- 
tines except display. Its function is to test the index 
indicator parameter and substitute the address of the 
required index register in place of the switch. The 
linkage used for the subscript-index subroutine is : 


B 

ZSP 


DCW 

001 

(XI) 


002 

(X2) 


003 

(X3) 


MULTY 

The MULTY macro generates the multiply subroutine. 
This subroutine is used as a substitute for the multiply- 
operation code. The linkage used for the multiply sub- 
routine is: 

B MULTY 
DCW NAME1 
DCW NAME2 

MVALL 

The MVALL macro generates the move-all subroutine. 
This subroutine is used when a record with subfields is 
to be filled with a figurative constant, for example, 
ALL @ ABC®. The figurative constant is moved into 
the record from left to right until the record is filled. 
When the record is filled, the subroutine returns to the 
location following the parameters of the subroutine. 
The linkage used for the move-all subroutine is: 

B ZML 

DCW NAME1 (Receiving field) 

DCW n (Not used) 

DCW nnn (Length of the field) 

DCW NAME2 (Figcon) 

DCW nnn (Length of figcon) 
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MVFTR 

The MVFTR macro generates the move-field-to-record 
subroutine. This subroutine is used when the record 
has subfields. The field is moved to the record area and 
justified according to parameter 7. When the field has 
been moved to the record, the subroutine returns to 
the location following the parameters of this subrou- 
tine. The linkage used for the move-field-to-record sub- 
routine is: 


B 

ZMR 


DCW 

NAME1 

(Field or record name) 

DCW 

n 

(Not used) 

DCW 

nnn 

(Length of field or record) 

DCW 

NAME2 

(Field or record name) 

DCW 

n 

(Not used) 

DCW 

nnn 

(Length of field or record) 

DCW 

@bbR@ 

(Right) 


@bbL@ 

(Left) 


SPLIT 

The SPLIT macro generates the stop-literal subroutine. 
This subroutine displays the specified literal or the 
address of the specified literal in the address register 
or on the console printer. The linkage used for the stop- 
literal subroutine is : 


subroutines. The linkage used for the subscript-1 sub- 
routine is: 

B XXJ 
DCW NAME1 


DCW nnn 

(Size of table element) 

DCW NAME2 

(Address of subscripted variable) 

DCW LABEL 

(Address of field where computed 


address is to be stored) 

or 


001 

(XI) 

002 

(X2) 

003 

(X3) 

DCW nnn 

(Size of NAME1) 

The linkage used for the subscript-2 subroutine 

B XXK 


DCW NAME1 


DCW nnn 

(Size of table element 1) 

DCW nnn 

(Size of table element 2) 

DCW NAME2 

(Address of subscripted variable 1) 

DCW NAME3 

(Address of subscripted variable 2) 

DCW LABEL 

(Address of field where computed 


address is to be stored) 

or 


001 

(XI) 

002 

(X2) 

003 

(X3) 

DCW nnn 

(Size of NAME1) 


SLT 


The linkage used for the subscript-3 subroutine is: 


DCW NAME1 

B XXL 



DCW NAME1 



DCW nnn 

(Size of table element 1) 


DCW nnn 

(Size of table element 2) 

SUBS 1, SUBS2, SUBS3 

DCW nnn 

(Size of table element 3) 

The SUBS1, SUBS2, and SUBS3 macros generate the 

DCW NAME2 

(Address of subscripted variable 1) 

subscripted subroutines. These three subroutines are 

DCW NAME3 

(Address of subscripted variable 2) 

used independently to compute an address for a data- 

DCW NAME4 

(Address of subscripted variable 3) 

name that has been subscripted. The address is com- 
puted according to the following equations, depending 

DCW LABEL 

(Address of field where computed 
address is to be stored) 

upon whether the data-name has 1, 2, or 3 subscripted 

or 

variables. 

001 

(XI) 


002 

(X2) 

CA = B + (Vi — 1) Si 

r> a — id i. i\t _ n e _i_m i \ c 

— i> l \n J.J U1 i V y a -i./ U2 

CA = B + (Vj - 1) Si + (V 2 - 1) S 2 + (V s - 1) S* 

003 

(X3) 

DCW nnn 

(Size of NAME1) 


where: CA is the Computed Address 

B is the Basic Address of the data-name 

Vi, V 2 , V 3 are the subscripted variable values. 

Si, S 2 , S 3 , are the sizes of the basic areas. 

After the address has been computed, the subroutines 
return to the location following the parameters of these 


XAMIN 

The XAMIN macro generates the examine subroutine. 
The data-name to be examined, the size and class of 
the data-name, switches defining the various options 
and literal 1 (and literal 2, if existing) are specified. 
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The examine subroutine replaces and tallies according 
to the options used. The linkage used for the examine 
subroutine is : 

B XMN 

DCW NAME1 (Data-name) 

DCW 000 (Not subscripted) 

001 (Subscripted) 

DCW nnn (Length of data-name) 

DCW 009 (Class is numeric) 

00X (Class is alphanumeric) 

DCW ABC (A: R = Replacing 

T = Tallying 

B: 1 = All 

2 = Leading 

3 = Until First 

4 = First 

C: R = Replacing 
b = No Replacing) 

DCW LIT1 (Name of literal 1) 

DCW LIT2 (Name of literal 2, if present) 

000 (Not present) 


COBOL Compiler Output 

The output from the cobol compiler is on the devices 
specified in the asgn cards. The list file output, with 
an assumed assignment to the printer, is composed of: 

Source Program Listing. A listing of the cobol source 
program is output during the Syntax Scan section of 
the cobol compiler. The listing is made up of the 
card images and their sequence. An asterisk (*) in 
the space between the card sequence and the card 
image is a sequence-error flag. An example of a 
source-program listing is shown in the sample pro- 
gram in Appendix IV. 

Dictionary. A cobol dictionary is output immediately 
following the source-program listing. The dictionary 
equates source special-names to symbolic names, 
source data-names to symbolic names, and source 
procedure-names to symbolic names. An example of 
a dictionary is shown in the sample program in 
Appendix IV. An M in the space between TYPE and 
NAME indicates that the particular name is used to 
refer to more than one field (multidefined) and re- 
quires qualification. 

Qualification Table. This table is output only when 
name qualification is stipulated in the source pro- 
gram. Names that require qualification and refer to 
only one specific field appear once in the qualifica- 
tion table. Names that require qualification and refer 
to more than one specific field appear more than 
once in the qualification table. 

If work5 (an optional logical file) is assigned, the 
output i's a listing of the Autocoder symbolic state- 


ments generated by the cobol compiler. The total 
number of diagnostic messages is output at the end 
of the listing. An end of compilation message is also 
output. 


COBOL Diagnostic Messages 

Incorporated within the compiler are three general 
types of cobol diagnostic messages. These diagnostics 
are intended for use by the source programmer and 
are displayed on the device assigned to the list file. 

The first type of diagnostic message is name-asso- 
ciated. These messages appear as flags in the dictionary 
that associates cobol source names or cobol source 
qualified-names with the equivalent Autocoder names 
used by the compiler. These flags refer to such errors 
as cobol keywords used as data-names. The following 
example of the equating of Autocoder and cobol 
names demonstrates how name-associated diagnostics 
appear. 

TYPE NAME SOURCE 


SPEC M All CARDS 

SPEC A12 PRINTER 

SPEC A13 OVERFLOW 

SPEC A14 LAST-CARD 

FILE A15 STATUS-FILE 

REC M A16 CARDS 

DATA A17 CARD-ORDER 

** KEYWORD DATA A18 DIGIT 

DATA A19 RECORD 


In the preceding example, the cobol keyword digit 
was used as a name, and is flagged. In addition, the 
name cards was used more than once in the source 
program and is flagged as being multidefined. If cards 
has been qualified in all its uses, no error exists. 

The second type of diagnostic message is in the form 
of a listing, describing problems encountered while 
analyzing the sentence structure of the source pro- 
gram. An error in COBOL-prescribed sentence structure 
automatically suspends compilation after the entire 
source program has been analyzed. In the listing, an 
assigned sequence number of the card containing the 
statement in error is related to the item expected by the 
compiler in contrast to the specific item actually en- 
countered. If, to continue analysis of the source pro- 
gram, the compiler drops any portion of the source 
program, the item(s) dropped are included as a part 
of the diagnostic message. In special cases, the ex- 
pected portion of the diagnostic message may be re- 
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placed by a language term or a rule describing a re- 
quirement of the cobol language, such as 

ENVIRONMENT DIVISION MUST PRECEDE DATA DIVISION 

In correcting program errors indicated by this type 
of diagnostic, it is recommended that the programmer 
analyze the diagnostics in sequential order. Further, 
the correcting process can be greatly facilitated if the 
programmer compares the source program error-state- 
ment with the corresponding COBOL-prescribed format 
as outlined in the SRL publication COBOL (on Disk) 
Specifications for IBM 1401, 1440, and 1460, Form 
C24-3235. The user is reminded that any items that are 
dropped as a result of an error in sentence structure 
are not analyzed by the compiler prior to their de- 
letion. 

An example of analyzing cobol diagnostics is: 

COBOL Souce Program 

SEQUENCE CARD IMAGE 


30 ENVIRONMENT DIVISION. 

40 CONFIGURATION SECTION. 

50 SOURCE-COMPUTER. IBM-1401 NO-OVERLAP. 
60 OBJECT-COMPUTER. IBM-1401 NO OVERLAP. 
70 SPECIAL-NAMES. 


230 PROCEDURE DIVISION. 


280 PARAGRAPH2. 

290 IF COBOLZ IS EQUAL TO REF1 OR LESS 
300 OR GREATER THAN 2 OR NOT LESS 

310 THAN 7 THEN GO TO COBOLN. 

320 PARAGRAPHS. 


COBOL Diagnostics 

SEQUENCE COMMENTS 

50 ‘ . ’ — NO-OVERLAP= 

300 INVALID SUBJECT OR OBJECT =OR= 


First consider the diagnostic with the lowest se- 
quence number: 

50 ‘ • ’ =NO-OVERLAP— 

The diagnostic means that in sequence number 50, the 
compiler expected a period. Instead of a period, no- 
overlap was sensed. Referring to the reference-format 


section of the cobol specifications publication, the 
source computer paragraph is defined. 

( IBM-1401 ) 

SOURCE-COMPUTER. j IBM-1440 > 

( IBM-1460 ) 

no-overlap is not an entry for the source-computer 
paragraph. (However, no-overlap is an optional entry 
for the object-computer paragraph.) 

Consider the diagnostic: 

300 INVALID SUBJECT OR OBJECT =OR= 

The diagnostic indicates that the error is in sequence 
number 300. The compiler expected a valid subject or 
a valid object; or was sensed. Referring to the cobol 
specifications publication, the format for relational 
conditions is defined. 


_ 


— 


j data-name ^ 

\ literal / 

f arithmetic expression ) 

(IS [NOT] GREATER THAN 7 ) 
MS [NOT] LESS THAN > 

f IS [NOT! EQUAL TO ) 

__ 


_ 


data-name 

literal 

arithmetic expression 


In the source statement (sequence 290 and 300), if 

COBOLZ IS EQUAL TO REFl OR LESS OR GREATER THAN 2 

or not less there should be a data-name, or a literal, 
or an arithmetic expression after less for comparison 
with the implied subject, cobolz. Instead, or was en- 
countered by the compiler. 


The meanings of the symbols used in the sentence- 
structure-error diagnostic message are: 


Symbol 


Meaning 


PROCEDURE-NAME Blanks bound COBOL-Ianguage terms 
and rules 


‘SECTION’ 


=RAN= 


(ALL TO MASTER) 
‘RUN’/LITERAL 


Quotes bound literal values expected 
by the compiler. 

Equal signs bound literal values en- 
countered by the compiler. 

Parentheses bound literal values 
dropped by the compiler. 

The slash represents the word or. 


A d 1 1i An <-» 1 Avn -rv» i-\l on A f 4-V» o n 4 on o /-v nJ-ni ■» ivo 

l XV_AVJLAlAVyJLAO.X ^ZVCT-AA Apll^O OI L1AV> OClALCllCC-a U UC LU1 C“Cli Ui 


diagnostic are: 


620 UNDECLARED NAME =TAPE-ORDER= (TAPE-ORDER) 

620 is the assigned sequence number of the card con- 
taining the statement in error; undeclared name is a 
language term, bounded by blanks, representing an 
error encountered by the compiler; = tape order = 
is the undeclared name, bounded by equal signs; and 
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(tape-order) is the item dropped, bounded by paren- 
theses. 

650 ‘TO’ =ALL= (ALL TO MASTER) 

650 is the assigned sequence number of the card 
containing the statement in error; to’ is the literal 
value, bounded by quotes, expected by the compiler; 
=all— is the literal value, bounded by equal signs, 
encountered by the compiler; and ( all to master ) is 
the item dropped, bounded by parentheses. 

The third category of diagnostics consists of warn- 
ing messages inserted as comments cards in the Auto- 
coder instructions generated by the compiler. Messages 
of this category are preceded by either a single asterisk 
(*), or double asterisks (**). 

A message preceded by a single asterisk indicates 
that a possible error in logic has occurred. These 
errors may or may not be intentional. For example, 
Field A is longer than Field B. The program contains 
an entry to move Field A to Field B. The cobol com- 
piler recognizes this is irregular and issues the diag- 
nostic, iOO a-field exceeds b-field, in the flow of Auto- 
coder instructions. If the instruction were issued for 
the purpose of truncating Field A in the move ( which 
would occur in this instance), the diagnostic would 
serve only as a reminder to the programmer that he 
had issued an unusual move instruction. However, if 
the programmer unknowingly issued such a move, his 
error would be pointed out to him by the cobol com- 
piler. 

A message preceded by double asterisks indicates a 
more serious error. These errors should be corrected 


in order that the resulting object program operate 
correctly. For example, if the open verb is not used 
in the source program, the diagnostic, All file must 
be opened, is output in the flow of Autocoder instruc- 
tions if a read or write instruction is used in the source 
program. This diagnostic can also appear when a file 
is declared in the data division and is not opened in 
the procedure division. This type of error would pre- 
clude the successful operation of an object program. 

If further explanation of the error condition is de- 
sired, the diagnostic message identifications (in these 
cases iOO and All) reference the diagnostic messages 
with explanatory notes shown in Figure 1. 

When the third category of diagnostics occurs in a 
compilation, one of two messages is printed on the 
printer. If the diagnostics were preceded by a single 
asterisk, the message 

TOTAL NUMBER OF DIAGNOSTICS — flWl 
is printed on the printer. 

If one or more of the diagnostics were preceded 
by double asterisks, the system temporarily halts, and 
the message 

NOTE NUMBER OF ERRORS NEEDING CORRECTION — Win 
TOTAL NUMBER OF DIAGNOSTICS — UHTl 
PRESS START TO CONTINUE START RESET AND 
START TO BYPASS JOB 

is printed on the printer. The user then has the option 
of continuing or bypassing the job by following the 
directions given in the message. The user is advised 
that diagnostics preceded by double asterisks may 
cause Autocoder source program errors to be generated 
by the cobol compiler. 
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Reference 

Division 

DIAGNOSTIC and Meaning 

A01 

Data (IOCS) 

UNIT RECORD FILES MUST HAVE STANDARD RECORD SIZES 
Card Reader 80 characters 

Punch 80 characters 

Printer 100 or 132 characters (1403) 

144 characters or less (1443) 

A02 

Data (IOCS) 

UNIT RECORD FILES MUST HAVE FORM1 RECORDS 
Blocked records are not permitted in unit record files. 

A04 

Data (IOCS) 

FORM3 RECORDS NOT PERMITTED 

Unblocked variable length records are not permitted. 

A05 

Environment (IOCS) 

ONLY TAPE FILES MAY RESERVE ALTERNATE AREAS 

Tape files are the only files supported by the alternate area feature. 

A06 

Environment (IOCS) 

UNIT RECORD FILES MUST NOT RESERVE ALTERNATE AREAS 

All alternate areas needed for unit record files are reserved automatically by the processor. Alternate 
areas must not be reserved for unit record files. Example: 

SELECT READER ASSIGN TO 1402-R RESERVE 1 ALTERNATE AREA 

A07 

Data (IOCS) 

FILE-LIMITS NOT SPECIFIED 

All disk file MD statements require a FILE-LIMITS entry. Each address must be 6 characters. 

A08 

Environment (IOCS) 

INVALID DISK UNIT 

The following are the only valid disk units: 
1301 -D or 131 1 - D : 0, 1, 2, 3, or 4 

A09 

Data (IOCS) 

UNIT RECORD FILE/1301 - LABEL RECORDS MUST BE OMITTED 

The LABEL RECORDS clause must be specified as OMITTED for unit record files and/or 1301. 

A10 

Data (IOCS) 

FORM 4 RECORDS-BLOCK SIZE MUST BE IN CHARACTERS 

The block size on Form 4 records must be designated using the key word CHARACTER, Therefore, the 
following format for Form 4 records is invalid: 

BLOCK CONTAINS 400 RECORDS 

All 

Procedure (IOCS) 

FILE MUST BE OPENED 

The OPEN verb is used to initiate the processing of one or more input and/or output files. At least one 
of the two clauses must be written. The clause can specify one or more files to be opened. 

A12 

Environment (IOCS) 

FILE MUST BE SELECTED 

Each file to be processed by the object program must be named in a SELECT file-name entry and the 
designated name must be unique within the source program. 

A13 

Data (IOCS) 

BLOCK SIZE MUST NOT EXCEED 4 DIGITS 

The maximum block size that can be specified may contain four digits including leading zeros. 

A 14 

Data (IOCS) 

RECORD SIZE MUST NOT EXCEED BLOCK SIZE 

A record size specification must always be smaller than the block size specification that is to contain the 
record . 

A15 

Data (IOCS) 

DATA RECORD DECLARED WITHOUT SPECIFYING SIZE 
01 following a file description not declared legally. 

A16 

Data (IOCS) 

INVALID FILE LIMITS 

The upper file limit must be the address of the first sector of the last physical record in the file. 

D01 

Data 

PICTURE EXCEEDS 30 CHARACTERS 

A picture may not contain more than 30 characters. Example: The picture 9(450) contains six actual 
characters, and therefore, will be properly declared. If the above picture were written with 450 9's, it 
would not be a valid picture description and the picture would be dropped by the processor. 

D02 

Data 

CONFLICTING EDITING CLAUSES 

Zero suppress, check protect, and float dollar sign edit clauses are mutually exclusive. The last clause 
specified is the one chosen for use. It is suggested that the more complex editing be done using a picture 
clause. 

D03 

Data 

MUST NOT SPECIFY DECIMAL AT GROUP LEVEL 
Only elementary items can use this option. 

004 

Data 

MUST NOT SPECIFY EDITING AT GROUP LEVEL 
Only elementary items can use this option. 
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Reference 

Division 

DIAGNOSTIC and Meaning 

D05 

Data 

CONFLICT BETWEEN PICTURE AND SIZE CLAUSE 

If there is a contradiction between a size clause and a picture clause, the picture specifications take 
precedence over the size clause. For example, the clause “SIZE IS 10" would conflict with a picture 
defined as 9(6). In this case, a size of 6 would be used by the compiler for compilation. 

D06 

Data 

CONFLICT BETWEEN PICTURE AND POINT LOCATION CLAUSE 

If there is a contradiction between point location and a picture clause, the picture specifications take 
precedence over the point location clause. 

Example: PICTURE IS 9V99 

POINT LEFT 3. 

In this example, the point will precede the second character from the left, as specified by the picture. 

D07 

Data 

CONFLICT BETWEEN PICTURE AND CLASS 

If there is a contradiction between class and a picture clause, the picture specifications take precedence 
over the class clause. 

Example: PICTURE IS 999 

CLASS IS ALPHAMERIC. 

In the example, the picture is specified as numeric; therefore, the class must also be specified as numeric. 

D08 

Data 

CONFLICT BETWEEN PICTURE AND EDITING CLAUSE 

If there is a contradiction between editing and a picture clause, the picture specifications take precedence 
over the editing clause. 

Example 1: PICTURE IS 999 CHECK PROTECT. 

(CHECK PROTECT clause is ignored.) 

Example 2: PICTURE IS $$9 CHECK PROTECT. 

(Floating dollar sign will be used.) 

D09 

Data 

ELEMENTARY ITEM MUST HAVE SIZE OR PICTURE CLAUSE 

An element of data (elementary item) is a piece of data which is never further divided. Each elementary 
item must have either SIZE clause or PICTURE clause designation in the DATA DIVISION. 

Dll 

Data 

A RECORD MUST NOT EXCEED 999 CHARACTERS 
All records may be as large as 999 characters. 

D12 

Data 

RLI MUST BE 4 CHARACTERS 

The Record Length Indicator (RLI) must be four characters in length including leading zeros. 

D13 

Data 

RECORD SIZES WITHIN THIS FILE MUST NOT CONFLICT 

More than a single 01 level within a FD or MD is considered implied redefinition and results in a redefini- 
tion of the first 01 „ If the record size is variable, the DEPENDING clause should be used. This diagnos- 
tic was given because record lengths within the FD or MD were not the same and could cause an error at 
object time. 

D14 

Data 

INVALID EDITING 

Illegal editing was specified and all editing for the entry in error was omitted by the processor. Some 
conditions which would cause invalid editing are: (1) invalid symbols in a picture clause; (2) size of 
editing field exceeds 120 characters; (3) high-order single zero suppress; (4) DB (debit symbol) or CR 
(credit symbol) not in right- or left-most position. 

D99 

Data 

PICTURE CLAUSE INVALID WITH GROUP ITEM 

Only elementary items may be described with the PICTURE clause. 

E03 

Environment 

HARDWARE DEVICE MULTI-DEFINED 

Hardware devices may nof be multi-defined. The example below illustrates two combinations that will 
cause errors which will cause a multi-defined device. 

Statements (1) and (2) or (1) and (3) would cause a multi-defined device because 1402-P is assigned to 
PUNCH in SPECIAL- NAMES. Statements (2) and (3) excluding statement (1) would cause a multi-defined 
device because two files cannot be assigned to the same hardware device. 

Example: SPECIAL-NAMES. 

(1) 1402-P, 4 IS PUNCH. 

INPUT-OUTPUT SECTION. 

FILE CONTROL. 

(2) SELECT FILE2 ASSIGN TO 1402-P 

' (3) SELECT FILE3 ASSIGN TO 1402-P. 

E51 

Procedure (IOCS) 

I/O TABLE OVERFLOW 

The maximum number of files is 12. Some error conditions cause extra entries to be made in the I/O table. 

E52 

Procedure (IOCS) 

WRITE REFERENCES INPUT FILE 

Only OUTPUT and INPUT-OUTPUT files can be referenced by the WRITE verb. Correct the OPEN state- 
ment or the WRITE statement. 
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Reference 

Division 

DIAGNOSTIC and Meaning 

E53 

Procedure (IOCS) 

INVALID KEY USED IN WRITE ON INPUT -OUTPUT FILE 

This type file requires a READ prior to each unique WRITE on the file. The INVALID KEY statement 
associated with the READ obviates the need for the INVALID KEY option of the WRITE statement. 

E54 

Procedure (IOCS) 

READ REFERENCES OUTPUT FILE ' 

Only INPUT and INPUT-OUTPUT files may be referenced by the READ verb. Correct the OPEN or the 
READ statement. 

F01 

Procedure 

! END STATEMENTS NOT ASSOCIATED WITH THE FOLLOWING FILES 

There must be at least one implicit or explicit AT END statement associated with every READ statement. 
Once an AT END statement has been executed, an attempt to READ from the associated file will constitute 
an error unless a subsequent CLOSE and OPEN have been executed for that file. 

HOI 

Procedure 

INVALID USE OF SUBSCRIPTING 

This diagnostic occurs when invalid subscripting is used without an OCCURS clause. 

Error Example: DATA DIVISION. 

FILE SECTION. 

01 NAME1 

02 NAME 2 (***NOTE) 

03 NAME 3 

PROCEDURE DIVISION. 

(***NOTE) MOVE NAME2 (3) TO WORKAREA 

The procedure statement specified subscripting; therefore, NAME2 must contain an OCCURS clause. 

100 

Procedure 

A -FIELD EXCEEDS B -FIELD 

The field being moved is larger in size than the receiving field. The field being moved will be truncated 
to the length of the receiving field. 

101 

Procedure 

NON-NUMERIC FIELD USED IN COMPUTATION 

This diagnostic is given on arithmetic fields that are not defined as numeric and are referred to by IF 
POSITIVE or IF NEGATIVE. 

102 

Procedure 

EDIT MASK TOO SMALL 

A GIVING, COMPUTE, or MOVE using edited fields too small to accept the field being placed into the 
edited mask will get this diagnostic. 

Example: Moving field 12345 to an edit mask $$ 9.99 is erroneous because this edit mask will 

accept only four characters. 

103 

Procedure 

A -FIELD EXCEEDS 18 DIGITS 

Fields used in arithmetic computations and expressions must not exceed 18 digits. 

105 

Procedure 

B-FIELD EXCEEDS 18 DIGITS (Refer to 103) 

106 

Procedure 

NON-NUMERIC FIGCON USED IN COMPUTATION 
No figurative constants can be used in arithmetic computations. 

107 

Procedure 

INVALID SOURCE 

When meaningless source is compiled, this diagnostic will be given followed by a STOP RUN expansion. 

108 

Procedure 

INTERMEDIATE RESULTS MUST NOT EXCEED 20 DIGITS 

Fields requiring decimal alignment in arithmetic computations must not have intermediate results that 
expand beyond 20 digits. 

109 

Procedure 

ALPHANUMERIC TO NUMERIC MOVE 

This diagnostic will be given if a group item (declared as numeric) is moved to an elementary numeric field. 
All group items are classed as alphanumeric . This is a warning diagnostic and does not necessarily con- 
stitute an error. 

iiO 

Procedure 

INVALID SOURCE-IN PRECEDING STATEMENT 

This diagnostic is given when meaningless source is compiled in conjunction with the DISPLAY verb. 

Example: DISPLAY data - name/literal ON (name) instead of the correct format 

DISPLAY data - name/literal UPON (name) 

111 

Procedure 

ROUNDED EXCLUDES LEFT JUSTIFY CLAUSE 

When left justification is used in conjunction with the ROUNDING option, justification ignored during 
compilation. 


Figure 1. Diagnostic Messages (Part 3 or 4) 
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112 

Procedure 

GROUP ITEMS MUST NOT HAVE IMPLIED DECIMAL 

Decimal alignment is neglected when group items classed as numeric are moved. 

113 

Procedure 

GROUP ITEM MUST NOT BE USED IN COMPUTATION 
Only elementary items can be used in arithmetic computations. 

115 

Procedure 

INVALID USE OF GROUP ITEM 

1. When the conditional IF POSITIVE or IF NEGATIVE is used, the field referred to must be elementary. 

2. When the conditional IF NUMERIC or IF ALPHABETIC is used, the field referred to should be 
elementary. If the fields are not elementary, the diagnostic is then given as a reminder to review 
possible zoning in the units position of the fields being tested for these conditions. 

117 

Procedure 

ITEM EXCEEDS 20 DIGITS 

Numeric fields set up for computational purposes must not exceed 20 digits. When a numeric field 
exceeding 20 digits is compared, the diagnostic is given and instructions to perform a non-numeric compare 
are given. 

118 

Procedure 

CLASS CONTRADICTION 

This diagnostic is given as a reminder to review classes of fields being operated on which have contra- 
dicting classes. For example, a numeric field compared to a non-numeric figurative constant would cause 
this diagnostic to be given. 

119 

Procedure 

INVALID USE OF EDITING 

Editing must be done on data fields using procedural statement with the appropriate verbs. For example: 

1. The field referred to by the ACCEPT verb must not have editing. 

2. The name of the integer that designates the number of times a PERFORM statement is to be executed 
in a PERFORM verb TIMES statement must not have editing symbols. 

3. Sending field must be numeric and greater than 1 digit. 

120 

Procedure 

SIZE OF LITERAL MUST EQUAL 1 

This literal must be one character in length; e.g., in the EXAMINE verb. 

121 

Procedure 

INVALID SUBSCRIPTING 

An example of subscripting that will cause this diagnosis is: 

DATA DIVISION. 

01 TABLE. 

02 NAME 1 OCCURS 3 TIMES SIZE IS 2. 

PROCEDURE DIVISION. 

MOVE NAME 1 (1, 2) 

Note the double subscripting indicated in the procedural statement contradicting the declaration for 
NAME1. 


Figure 1. Diagnostic Messages (Part 4 of 4) 




Operating Procedures 


Jobs 

The cobol system performs four major operations. 

1. Compiles source programs. 

2. Assembles Autocoder-IOCS programs. 

3. Produces object programs. 

4. Starts the execution of object programs. 

Because these operations are performed by the four 
processors of the system, the operations are called 
processor jobs. In this respect, the cobol compiler com- 
piles source programs, the Autocoder processor assem- 
bles Autocoder-IOCS programs, the Output processor 
produces object programs, and the Execution processor 
starts the execution of object programs. 

One other operation, updating the cobol system, is 
also considered a job. Updating the cobol system is 
called an update job. Update jobs are described in 
Updating a COBOL System. 

Under control of the System Control Program, it is 
possible to perform one or more jobs without operator 
intervention. This process is called stack processing. A 
stack is always made up of the Card Boot deck, a sys- 
tem asgn card, the particular job(s) to be performed, 
and a halt card. 

In performing a job, the following must be taken into 
consideration. 

1. The kind of input for the job. 

2. The use of the logical files. 

3. The machine-operator procedures to be followed. 

The kinds of input for processor jobs are discussed 
in the following section (Preparing Processing Jobs). 

The general use of logical files is discussed in Logi- 
cal Files. In most cases, the user does not need to be 
concerned about the logical files used for a particular 
job because the cobol system defines the files and 
assigns them to specific input/output devices. In the 
description that follows of preparing individual proces- 
sor jobs, any file assignment that the user must make is 
explained. 

The machine-operator procedures to be followed are 
described in Performing Jobs. 

The last card of a cobol source-program deck is the 
end of source card. The format of this card follows. 

Columns Contents 

1-3 END 

5-6 OF 

8-13 SOURCE 


The end of source card signals the cobol compiler 
that the entire source program has been read into core 
storage by the input file. Figure 2 shows a cobol 
source deck. 



Preparing Processor Jobs 

The kind of output that is desired by the user is the 

determining factor of which processor job is to be per- 
formed. 

The remainder of this section describes each indi- 
vidual processor job. They are: 

COBOL RUN 

COBOL RUN THRU AUTOCODER 
COBOL RUN THRU OUTPUT 
COBOL RUN THRU EXECUTION 

Each processor job description includes: 

1. Assumed input device. This entry refers to the de- 
vice on which the input file is assumed to be lo- 
cated. For the 1402, reader 1 means that the cards 
are selected into stacker 1. For the 1442, reader 1 
means unit 1. 

2. Input. This entry refers to the type of input for the 
job. 

3. Assumed output devices. This entry refers to the de- 
vices on which the list file, the message file, and the 
output file are assumed to be located. For the 1403, 
printer 2 means that 132 print positions are avail- 
able. For the 1443, printer 2 means that 144 print 
positions are available. For the 1402, punch 4 means 
that the cards are selected into stacker 4. For the 
1442, punch 1 means unit 1. 

4. Output. This entry refers to the type of output that 
the user always gets as a result of the job. 

5. Output options available. This entry refers to the 
type of output the user can get as a result of the job. 
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6. Required user assignments. This entry describes any 
additional logical file assignments that the user must 
make to perform the job. 

7. Control cards. This entry describes the method of 
punching any required control cards. 

8. Arrangement. This entry references a figure that 
shows the manner of arranging card input for the 
job. 

Notes. 

1. Any logical file assumed assignment can be changed by using 
an asgn card. (See Changing File Assignments .) 

2. note and pause cards can be placed between, but not 
within, job decks. 

COBOL RUN 

This is the type of run that results in Autocoder sym- 
bolic statements. When this run is performed, only the 
cobol compiler is selected. To get a machine-language 
object program, the Autocoder statements must be 
processed by the Autocoder and Output processors. 

This is the only type of run that can be performed 
when the Autocoder system and the cobol system re- 
side on separate disk units. 

Assumed Input Device, input file on reader 1. 

Input. Source program. 

Assumed Output Devices, list file on printer 2, mes- 
sage file on printer 2, output file on punch 1 (1442) 
or punch 4 (1402). 

Output. 

1. cobol diagnostic messages, if errors are sensed in 
the source program. 

2. Source-program listing. 

3. cobol dictionary. 

4. Qualification table, if name qualification is stipu- 
lated in the source program. 

5. Punched-card deck containing the Autocoder sym- 
bolic statements. 

Output Option Available. Listing of the Autocoder 
symbolic statements. To obtain this option, use a 
work5 asgn card. 

Required User Assignments. None. 


The value n represents the number of print posi- 
tions. If the printer is a 1403, a 1 indicates 100 po- 
sitions and a 2 indicates 132 positions. If the printer 
is a 1443, a 1 indicates 120 positions and a 2 indi- 
cates 144 positions. 

2. The run card, the only required control card, is 
punched in the following manner. 

Columns Contents 

6-10 COBOL 

16-18 . RUN 

Arrangement. The arrangement of input cards is shown 
in Figure 3. 

Note: If a cross reference list is desired instead of a label table 
when an autocoder run, an autocoder run thru 
output, or an autocoder run thru execution is per- 
formed, change column 31 of the compiler-generated 
ctl card to blank. 



COBOL RUN THRU AUTOCODER 

This is the type of run that results in Autocoder text. 
When this run is performed, the cobol compiler and 
the Autocoder processor are selected. To get a machine- 
language object program, the Autocoder text must be 
processed by the Output processor. 

Assumed Input Device, input file on reader 1. 

Input. Source program. 

Assumed Output Devices, message file on printer 2, 
list file on printer 2. 


Control Cards. 

1. If a fisting of the Autocoder symbolic statements is 
desired on the printer, punch the asgn card in the 
following manner. If used, this asgn card must pre- 
cede the run card. 

Columns Contents 

6-10 WORK5 

16-19 ASGN 

21-29 PRINTER n 


Output. 

1. cobol diagnostic messages, if errors are sensed in 
the source program. 

2. Source-program fisting. 

3. cobol dictionary. 

4. Qualification table, if name qualification is stipu- 
lated in the source program. 

5. Autocoder diagnostic messages, if errors are sensed. 
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6. Label table. 

7. Autocoder text and a message specifying the start 
address of the text. 

Output Options Available. Listing of the Autocoder 
symbolic statements. To obtain this option, use a 
work5 asgn card. 


COBOL RUN THRU OUTPUT 

This is the type of run that results in compiling and 
assembling a machine-language object program. When 
this run is performed, the cobol compiler, the Auto- 
coder processor, and the Output processor are selected. 

Assumed Input Device, input file on reader 1. 


Required User Assignments. Because the result of proc- 
essing is Autocoder text, an area (output file) in disk 
storage must be defined. The output file must be de- 
fined before the job is performed. Use an output 
asgn card to define the file. 

Control Cards. 

1. An output asgn card, which precedes the run card, 
must be used to define the output file because the 
Autocoder text is written in disk storage. Punch the 
output asgn card in the following manner: 

Columns Contents 

6-11 OUTPUT 

16-19 ASGN 

21-57 1311 UNIT n, START nnnnnn, END nnnnnn 

The value n indicates the number of the disk unit, 

and can be 0, 1, 2, 3, or 4; nnnnnn represents a disk 
address. The limits specified must define an area 
large enough to contain the Autocoder text. When 
punching the output asgn card, blanks must be 
present in columns 21-57 where indicated in the 
format. 

2. If a listing of the Autocoder symbolic statements is 
desired on the printer, punch the asgn card in the 
following manner. If used, this asgn card must pre- 
cede the run card. 


Input. Source program. 

Assumed Output Devices, list file on printer 2, mes- 
sage file on printer 2, output file on punch 1 (1442) 
or punch 4 (1402). 

Output. 

1. cobol diagnostic messages, if errors are sensed in 
the source program. 

2. Source-program listing. 

3. cobol dictionary. 

4. Qualification table, if name qualification is stipu- 
lated in the source program. 

5. Autocoder diagnostics messages, if errors are sensed. 

6. Label table. 

7. Object-program listing. 

8. Object program in the condensed-loader format 
(six-card loader for 1401 or 1460, seven-card loader 
for 1440). 

Output Options Available. Listing of the Autocoder 
symbolic statements. To obtain this option, use a 
work5 asgn card. 

Required User Assignments. None. 

Control Cards. 


Columns 


Contents 


6-10 

16-19 

21-29 


WORK5 

ASGN 

PRINTER n 


1. If a listing of the Autocoder symbolic statements is 
desired on the printer, punch the asgn card in the 
following manner. If used, this asgn card must pre- 
cede the run card. 


The value n represents the number of print posi- 
tions. If the printer is a 1403, a 1 indicates 100 po- 
sitions and a 2 indicates 132 positions. If the printer 
is a 1443, a 1 indicates 120 positions and a 2 indi- 
cates 144 positions. 

3. Punch the required run card in the following man- 
ner. 

Columns Contents 

6-10 COBOL 

16-18 RUN 

21-24 THRU 

26-34 AUTOCODER 

Arrangement. The arrangement of input cards is shown 
in Figure 4. 


Columns 

6-10 

16-19 

21-29 


Contents 

WORK5 

ASGN 

PRINTER n 


A 


END OF SOURCE 

Pi 


d 


( IDENTIFICATION DIVISION 


COBOL RUN 
THRU AUTOCODER 


{ OUTPUT ASGN 



WORK5 ASGN 
(if required) 


Source 

Program 

Deck 


Figure 4. cobol run thru autocoder 
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The value n represents the number of print posi- 
tions. If the printer is a 1403, a 1 indicates 100 po- 
sitions and a 2 indicates 132 positions. If the printer 
is a 1443, a 1 indicates 120 positions and 2 indicates 
144 positions. 

2. Punch the required run card in the following man- 
ner. 


Columns 

Contents 

6-10 

COBOL 

16-18 

RUN 

21-24 

THRU 

26-31 

OUTPUT 


Arrangement. The arrangement of input cards is shown 
in Figure 5. 



Figure 5. cobol run thru output 


COBOL RUN THRU EXECUTION 

This is the type of run that results in compiling, assem- 
bling, and executing a machine-language object pro- 
gram. When this run is performed, the cobol complier, 
Autocoder processor, Output processor, and Execution 
processor are selected. This run is similar to the stand- 
ard load-and-go operation. 

Assumed Input Device, input file on reader 1. 

Input. Source program. 

Assumed Output Devices, list file on printer 2, mes- 
sage file on printer 2. 

Output. 

1. cobol diagnostic messages, if errors are sensed in 
the source program. 

2. Source-program listing. 

3. cobol dictionary. 

4. Qualification table, if name qualification is stipu- 
lated in the source program. 

5. Autocoder diagnostic messages, if errors are sensed. 

6. Label table. 


7. Autocoder program listing. 

8. Object program in the coreload format and a mes- 
sage specifying the start and end addresses of the 
program that is stored in the coreload file in disk 
storage. 

Output Options Available. Listing of the Autocoder 
symbolic statements. To obtain this option, use a 
work5 asgn card. 

Required User Assignments. The coreload file must 
be defined by the user before the job is performed. 
Use a coreload asgn card specifying the start and 
end addresses of the coreload file to define the file. 

Additional Results. The object program is loaded into 
core storage and control is transferred to it. 

Control Cards. 

1. A coreload asgn card, which precedes the run 
card, must be used to define the coreload file. 
Punch the coreload asgn card in the following 
manner: 

Columns Contents 

6-13 CORELOAD 

16-19 ASGN 

21-57 1311 UNIT n, START nnnnnn, END nnnnnn 

The value n is the number of the disk unit, and can 
be 0, 1, 2, 3, or 4; nnnnnn indicates a disk address. 
The limits specified must define an area large 
enough to contain the object program. When punch- 
ing the coreload asgn card, blanks must be present 
in columns 21-57 where indicated in the format. 

2. If a listing of the Autocoder symbolic statements is 
desired on the printer, punch the asgn card in the 
following manner. If used, this asgn card must pre- 
cede the run card. 

Columns Contents 

6-10 WORK5 

16-19 ASGN 

21-29 PRINTER n 

The value n represents the number of print posi- 

tions. If the printer is a 1403, a 1 indicates 100 po- 
sitions and a 2 indicates 132 positions. If the printer 
is a 1443, a 1 indicates 120 positions and a 2 indi- 
cates 144 positions. 

3. Punch the required run card in the following man- 
ner. 

Columns Contents 

6-10 COBOL 

16-18 RUN 

21-24 THRU 

26-34 EXECUTION 
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Arrangement. The arrangement of input cards is shown 
in Figure 6. 
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Figure 6. cobol run thru execution 


ASGN Card Format 

— 
Assumed Assignment 

Remarks 

Label Field 
(Columns 6-1 5) 

Operand Field 
(Columns 16-20) 

Operand Field 
(Columns 21-72) 



SYSTEM 

ASGN 

j 131 1 UNIT n ( 
1 1301 UNIT 0) 

1311 unit — user-assigned 

1301 unit — must be assigned to UNIT 0 

The SYSTEM ASGN card is the only 
required ASGN card. It must follow 
the Card Boot in a stack of jobs. Any 
other SYSTEM ASGN cards in the 
stack are invalid. If the user desires 
that the COBOL system use less than 
the number of core storage positions 
available in the processor machine, 
punch a comma in column 32, and 4K, 
8K, 12K, or 16K beginning in column 
34. 

CONTROL 

ASGN 

j READER n / 

(CONSOLE PRINTER) 

READER 1 

If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 

MESSAGE 

ASGN 

j PRINTER n ( 

(CONSOLE PRINTER) 

PRINTER 2 

When the MESSAGE file is assigned 
to the CONSOLE PRINTER, carriage 
control characters used with the 1403 
or 1443 printer may appear in the 
message. If the MESSAGE file and 
the LIST file are assigned to the 
printer, the assignment must be to the 
same printer. 

LIST 

ASGN 

t PRINTER n j 

} 1311 UNIT n, START nnnnnn, END nnnnnn? 
) 1301 UNIT n, START nnnnnn, END nnnnnn i 
(OMIT ) 

PRINTER 2 

If the LIST file is assigned to 
PRINTER 1 (1403), the Output 
processor of the Autocoder system 
develops a 100-character program 
listing. If the MESSAGE file and the 
LIST file are assigned to the printer, 
the assignment must be to the same 
printer . 

INPUT 

ASGN 

(READER n ( 

'1311 UNIT n, START nnnnnn, END nnnnnn > 
/ 1 301 UNIT n, START nnnnnn, END nnnnnn \ 

READER 1 

If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 

OUTPUT 

ASGN 

l PUNCH n J 

/1 311 UNIT n, START nnnnnn, END nnnnnn ? 
(1301 UNIT n, START nnnnnn, END nnnnnn ( 
(OMIT ' 

PUNCH 4 (1401 and 1460) 
PUNCH 1 (1440) 


LIBRARY 

ASGN 

^1311 UNIT n, START nnnnnn, END nnnnnn / 
] 1301 UNIT n, START nnnnnn, END nnnnnn ( 

1311 UNIT 0, START 012900, END 019980 
1301. UNIT 0, START 012900, END 019980 

1311 is assumed if the SYSTEM file is 
assigned to 1311; 1301 is assumed if 
the SYSTEM file is assigned to 1301 . 

If the MESSAGE, LIST, and WORK5 
files are assigned to a printer, the 
'assignment must be to the same printer. 

WORK1 


|l311 UNIT n, START nnnnnn, END nnnnnn / 
/ 1 301 UNIT n, START nnnnnn, END nnnnnn ( 

1311 UNIT0, START 007200, END 009400 
1301 UNIT 0, START 007200, END 009400 

WORK2 

ASGN 

|l31 1 UNIT n, START rynnnnn, END nnnnnn ( 
/ 1 301 UNIT n, START /innnnn, END nnnnnn ( 

131 1 UNIT 0, START 007200, END 009400 
1301 UNIT 0, START 007200, END 009400 

WORK3 

ASGN 

j 1311 UNIT n, START nnnnnn, END nnnnnn \ 
(l301 UNIT n, START nnnnnn, END nnnnnn) 

1311 UNIT0, START 009400, END 012900 
1301 UNITO, START 009400, END 012900 


WORK4 

ASGN 

( 131 1 UNIT n, START nnnnnn. END nnnnnn) 
^ 1301 UNIT n, START nnnnnn, END nnnnnn / 

(omit ) 

OMIT 


WORK 5 

ASGN 

(1311 UNIT n, START nnnnnn, END nnnnnn ) 
) 1301 UNIT n, START nnnnnn, END nnnnnn f 
j PRINTER n ( 

( OMIT ’ 

OMIT 


CORELOAD 

ASGN 

i 1311 UNIT n, START nnnnnn, END nnnnnn ) 
i 1301 UNIT n, START nnnnnn, END nnnnnn / 

(omit ) 

OMIT 



Figure 7. asgn Card Formats and Assumed Assignments 
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Changing File Assignments 

Each logical file defined by the cobol system, with 
the exception of the system and coreload files, is as- 
signed to a specific input/output device by the System 
Control Program. These assignments can be changed 
by using asgn cards. The uses of the logical files should 
be considered when deciding file assignments. 

Preparing ASGN Cards 

asgn cards enable the user to change file assignments 
for one or more jobs in a stack. The general format for 
an asgn card is: 

file-name ASGN j qmiT ( 


The file-name is the specific logical file; device is the 
input/ output unit to which the logical file is assigned. 

The assumed file assignments and asgn card formats 
relating to specific files are shown in Figure 7. Valid 
device entries are shown in Figure 8. 

Leave a blank between items in the operand field as 
shown in Figure 7. If, for example, the output file is 
to be assigned to disk area 004000 through 004799 on 
1311 unit 1, the user would code the asgn card for 
punching as shown in Figure 9. The end address to 


Device Entry and Values of n and nnnnnn 

Remarks 

31311/ UNIT n, START nnnnnn, END nnnnnn 

The END address is the address of the next available sector. 

|l30l[ 


n is the number of the disk unit, and can be 

The values of nnnnnn must adhere to the following rules: 

0, 1,2, 3, or 4; nnnnnn is a disk address. 

1. WORK1 and WORK2 files . If the disk unit is 131 1 , the 
START address must be a multiple of 200. If the disk unit 
is 1301, the START address must be a multiple of 800. 

The END address (131 1 and 1301) must be a multiple of 
40. 

2. WORK3, WORK4, and WORK5 files. The START and 
END addresses (131 1 and 1301) must be multiples of 10. 

3. LIBRARY file. The START and END addresses (1311 and 
1 301 ) must be multiples of 20. 

If these rules are violated, the system automatically narrows 

in the disk area to an area that does adhere to these rules. 

READER n 


For 1402, n can be 0, 1 , or 2 . 

For 1402, n represents the pocket into which the cards are 
stacked . 

For 1442, n can be 1 or 2. 

For 1442 and 1444, n represents the number of the unit. 

PUNCH n 

For 1 402, n can be 0, 4, or 8 . 
For 1442, n can be 1 or 2. 

For 1444, n must be 3. 


PRINTER n 

n represents the number of print positions available on the 
1403 or 1443. 

n can be 1 or 2 

For 1403, a 1 indicates 100 positions and a 2 indicates 132 
positions . 

For 1443, a 1 indicates 120 positions and a 2 indicates 144* 
positions . 

*Only 132 print positions are used by the COBOL system. 

CONSOLE PRINTER 

The console printer must be an IBM 1447 without a buffer 
feature . 

OMIT 

Select this option when the file is not to be used by the 
COBOL system. LIST, OUTPUT, -WORK4, WORK5, and 
CORELOAD are the only files that can be omitted. 


Figure 8. Valid Device Entries 
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OPERAND 

21 25 30 35 40 45 50 55 60 65 70 

imuuMm 

30021 

13 l.l UNIT .1 ... START 00 4000,. END 0048.00 


Figure 9. Coding for output asgn Card 



Figure 10. cobol Compiler and Use of Logical Files 
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be punched is the address of the next available sector, 

not the address of the last sector to be used. 

File Considerations 

CONTROL File and INPUT File. If both the control 
and input files are assigned to the reader, the assign- 
ments must be identical. For example, if the system 
is a 1440 and the control file is assigned to reader 1, 
the input file must also be assigned to reader 1. 

SYSTEM File. If the system file resides on 1311, drive 
0 should be on-line because the System Control Pro- 
gram’s assumed assignments are on drive 0. If drive 
0 is not on-line, the user must use asgn cards to 
change the assumed assignments for the library, 
workI, work2, and work3 files. 

MESSAGE File and LIST File. If both the message 
and list files are assigned to the printer, the assign- 
ments must be identical. For example, if the system 
is a 1401 and the message file is assigned to printer 
2, the list file must also be assigned to printer 2. 

OUTPUT File. This file must be assigned to a disk 
area for cobol run thru autocoder because the 
Autocoder text (100-character records) must be on 
disk for Output processing. 

Note: Do not assign the output file to a disk area for 

COBOL RUN THRU OUTPUT 

WORKI File and WORK2 File. workI and work2 are 
required files. They can be assigned to any available 
area in disk storage. The workI and work2 files are 
used by the cobol compiler for the getex and putex 
functions that perform the large volume of data 
handling during compilation. 

WORK3 File. work3 is a required file. It can be as- 
signed to any available area in disk storage. The 
work3 file is used by the cobol compiler as an out- 
of-line file (place) that bypasses data around major 
portions of the compiler. In addition, if the thru op- 
tion is specified in the run card, work3 acts as an 
interface file between cobol and Autocoder. 

WORK4 File. work4 is an optional file. When work4 
is assigned to any available area in disk storage, it 
is used by the cobol compiler as the source-merge 
file. This function intersperses cobol source state- 
ments, by paragraph, into the Autocoder symbolic 
statements generated by the cobol compiler. 

WORK5 File. work5 is an optional file. When work5 
is assigned to any available area in disk storage or 
to the printer, it is used by the cobol compiler as 
the cobol output listing file. This file is a listing 


of the Autocoder symbolic statements generated by 

the cobol compiler. 

Timing Considerations 

Each segment of the cobol compiler uses specified 
logical files that include: input, output, list, getex/ 
putex (work1/work2), place (work3), the optional 
source-merge (work4), and the optional output list- 
ing (work5). Figure 10 is a block diagram showing the 
logical segments and the order in which they operate. 
In addition, the logical files used by the individual 
segments are shown. 

Manipulation of the cobol files enables the user to 
achieve the best possible results in the operation of the 
cobol system. To attain these desired results, it must 
be remembered that seek time is the most significant 
factor affecting input/output operations time in the 
system. Therefore, it would be expedient for the user 
with a multi-unit system to distribute the cobol files 
to all of the units, thus making a significant reduction 
in seek time. 

workI and work2 must be given further considera- 
tion if optimum seek time is to be realized. Because 
these two files handle large amounts of data, ineffi- 
cient use of the files results in an increase of cobol 
time requirements. To minimize this effect on the one- 
unit user, the assumed assignments for workI and 
work2 are such that the two work files are assigned 
to the same area of the disk unit, as shown in Figure 11. 
The System Control Program “splits” each cylinder, 
causing workI to occupy the upper half of each cylin- 
der and work2 to occupy the lower half of each 
cylinder. A programmed false cylinder-overflow is 
forced as each half cylinder is operated upon and the 
next upper or lower cylinder is used. 

The user is advised that when asgn cards are used 
to change logical file assignments, the assignments 
affect not only the logical files used by cobol, but also 
the logical flies used by Autocoder. Autocoder requires 
that the workI and work2 files be assigned to separate 
disk areas. Therefore, when the assumed assignments 



Figure 11. workI and work2 Assigned to Same Disk Area 
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for workI and work 2 are changed by using asgn 
cards, these files must be assigned to separate areas 
on disk. 

Using ASGN Cards 

At the beginning of stack processing, the System Con- 
trol Program reads a list of assumed assignments into 
core storage from the system file. Each assumed as- 
signment remains in effect until an asgn card for that 
file is sensed. Any changed file assignment remains in 
effect until the next asgn card for that file, or a halt 
card, is sensed. 

If a file-assignment change is applicable for an en- 
tire stack, place the asgn card immediately ahead of 
the first run card. 

If a file-assignment change is only applicable to a 
specific job, place the asgn card immediately ahead of 
the run card for that job. To change the file assignment 
back to the assumed assignment or to a different as- 
signment, place the asgn card immediately ahead of 
the run card for the next job that requires the effective 
file assignment to be changed. 


Batched Files 

In some cases it would be expedient for the user to 
exercise the batching capability of the cobol system. 
The batched-files concept applies to the external files 
input, output, and list. (The coreload file, used by 
the Output processor of the Autocoder portion of the 
system, can also be batched.) The contents of these 
files represent one or more sequential sets of input to 
or output from the processors. 

An example of the batching principle is as follows. 
Three source programs are stored sequentially on the 
input file. The user-specified output is to be in the form 
of Autocoder-IOCS symbolic statements. This implies 
that only the cobol compiler is to be accessed. 

An input asgn card containing the start address of 
the beginning of the first source program and the end 
address of the end of the third source program is re- 
quired. An output asgn card is required, if the output 
file is to be assigned to disk. Following the output 
asgn card are three cobol run cards (one run card for 
each of the three source programs on disk). 

At the completion of processing of each source pro- 
gram, the first disk address used by the next program 
to be written on the output file is printed on the mes- 
sage file. Thus, the user would know not only the start 
and end addresses of the entire output file, but also the 
start and end addresses of each of the partially proc- 
essed programs. 


Performing Jobs 

Under control of the System Control Program, it is 
possible to process one or more jobs without operator 
intervention. For this stack processing to be accom- 
plished, each separate job must be called for by the 
necessary control cards. A list of the operations that 
can be performed in a stack follows. 

Logical File Assignments. Assign decks are made up of 
one or more asgn control cards specifying input/ 
output devices that differ from the effective devices 
of the System Control Program. With the exception 
of the system asgn card, logical-file asgn control 
cards can appear as frequently within the stack as 
the user wishes. Individual control cards within the 
deck can be in any order. The system asgn card 
appears once in a stack and immediately follows the 
Card Boot deck. A coreload asgn card is required 
if thru execution is specified in a run card. 

System Updating. Update decks as supplied by ibm 
are read by the System Control Program and must 
be available to the system on the device to which 
the control file is assigned. An update deck con- 
sists of one or more control cards, followed by any 
appropriate data cards. 

Processor Runs. Runs depend upon a run card and the 
input to the processors. If the input file is assigned 
to the same device as the control file (the card 
reader), each source deck must be placed behind 
its respective run control card. If the input to the 
processors is written in disk storage, an input asgn 
card is required designating the location of the 
source material in disk storage. 

Communicating with the Operator, note control cards 
and pause control cards can appear anywhere in a 
stack between jobs. A halt card must be the last 
card of a stack. 

Preparing a Stack 

The Card Boot deck, a system asgn card, and a halt 
card are always required. The formats of the system 
asgn and halt cards are shown in Appendix I. 

The input cards for a stack are arranged in this order: 

1. The 1402 or 1442 Card Boot deck. 

2. The system asgn card. 

3. Job decks, to include the assign card(s), update 
deck(s), and processor deck(s). Job decks can be in 
any order. 

4. The halt card. 

This stack is placed in the card reader and is read by 
the System Control Program from the control file. 
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Figure 12. Stack with control and input Files Assigned to 
the Same Device 

Figure 12 shows a stack with control and input 
files assigned to the same device. 

Figure 13 shows a stack with control and input 
files assigned to different devices. 

Running a Stack 

To perform a stack run when the system resides on 
1311: 

1. Place the system pack on the disk drive referred 
to in the system asgn control card, and ready the 
drive. (This card immediately follows the 1402 or 
1442 Card Boot deck. ) 

2. Ready all the input/output devices to which the 
logical files are assigned. These are the assumed 



devices of the System Control Program and/or the 
devices defined by the asgn cards. The assumed 
devices are: disk drive 0, the card reader, the card 
punch, and the printer. 

3. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch and disk-write switch 
on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 

4. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, 
and program load on the console. 

5. When the System attempts to read the last card: 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the card 
reader. 

To perform a stack run when the system resides on 
1301: 

1. Ready all the input/output devices to which the 
logical files are assigned. These are the assumed de- 
vices of the System Control Program and/or the 
devices referred to in the asgn cards. The assumed 
devices are: disk unit 0, the card reader, the card 
punch, and the printer. 

2. Ready the console: 

a. Set the I/O check-stop switch off. 

b. Set the check-stop switch and disk-write switch 
on. 

c. Set the mode switch to run. 

d. Press check reset and start reset. 



Figure 13. Stack with control and input Files Assigned to Different Devices 
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3. Load the program: 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, 
and program load on the console. 

4. When the system attempts to read the last card: 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the card 
reader. 

Loading Object Programs 

Punched-card object programs can be executed inde- 
pendently of the cobol system. The procedures to 
be followed when a card-read error occurs depend on 
the format of the program and the object system. 

To load the program: 

1. Place the object deck in the card reader. (If for any 
reason the user does not wish to clear storage before 
loading the object program, he should remove the 
first two cards from the deck. These are the dear- 
storage cards generated by the processor.) 

2. Set the I/O check-stop switch on. Set sense switches 
as needed by the object program. 

3. Press check reset and start reset. 

4. Load the program: 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the card 
reader, and program load on the console. 

5. When the system attempts to read the last card: 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the card 
reader. 

If a card-read error occurs while loading an object- 
program deck with the I/O check-stop switch on, the 
following procedures are followed to correct the error. 
If the reader is a 1402: 

1. Nonprocess run out the cards in the card reader. 

2. Place the last three cards (two nonprocessed cards 
and the card in error) in the hopper. 

3. Press check reset on the reader and start. 

If the reader is a 1442 and the object-program deck 
is in the 1440 condensed-loader format: 

1. Nonprocess run out the cards in the card reader. 

2. Place the last two cards in the hopper. 

3. Press check reset and start reset. 

4. Set the I-address register to the ninth position of 
the loader. 

5. Press start on the reader and start on the console. 
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If the reader is a 1442 and the object-program deck 
is in the 1440 self-loading format: 

1. Nonprocess run out the cards in the card reader. 

2. Place the last two cards in the hopper. 

3. Press check reset and start reset. 

4. Set the I-address register to 00073. 

5. Press start on the reader and start on the console. 

Note: For a description of the preceding formats, see the 
Systems Reference Library publication Autocoder (on 
Disk) Program Specifications and Operating Procedures 
for IBM 1401, 1440, and 1460, Form C24-3259. 


Halts and Messages 

The halts and messages shown in Figure 14 can appear 
during a stack run. To display halt numbers, press the 
A-address register key. Messages are printed on the 
message file. 

Conditions may arise that the system recognizes as 
being instrumental in causing a failure. In these in- 
stances, the system automatically calls in a storage- 
and file-print program. The contents of core storage 
and the work files are printed on the message file, and 
the system continues by accepting a new job. Among 
the conditions that may cause a system failure are: 

1. An end-of-file indication was sensed by the compiler 
before the end of the file was reached. 

2. An excessive number of disk read or disk write 
errors occurred on the work files. 

3. An error in COBOL-prescribed sentence structure oc- 
curred when coding the source program. This type 
of error is detected in the phase of the processor that 
analyzes the particular part of the program. For 
example, an error in subscripting would be detected 
in phase H01. 

In certain types of halts, the operator can call in the 
storage- and file-print program by a manual branch to 
address 900. These types of halts are in the form xxxx, 
where x is numeric. 

If the Autocoder preprocessor recognizes conditions 
that make it impossible to complete an operation, a 
hard halt occurs. In such cases, the linkage to the Sys- 
tem Control Program is destroyed. This type of halt is 
in the form xxbb, where x is numeric. When the pre- 
processor has program control, the storage- and file- 
print program cannot be used. If a failure occurs, the 
system does not call in the program, and the operator 
cannot call it by a manual branch to address 900. The 
operator can restart by using the Card Boot, followed 
by the necessary job decks. 



Halt Number 

(A-Address 

Register) 

MESSAGE and/or Meaning 

Restart Procedure 

1 bb 

Card read error. 

1 . 1402 card reader: nonprocess run out the cards in the 

reader. Place the last three cards (two nonprocessed 
cards and the card in error) in the hopper. Press START . 

2. 1442 card reader: nonprocess run out the cards in the 

reader. Place the two nonprocessed cards in the hopper., 
(The first nonprocessed card is the card in error). Press, 
START on the reader and START on the console. 

2bb 

Wrong-length record or no -address-compare error sensed 
ten times during a disk-read or disk-write operation. 

Press START for ten disk-read or disk-write retries. 

3bb 

Parity error sensed ten times during a disk-read or disk-write 
operation. 

Press START for ten disk-read or disk -write retries. 

4bb 

Not-ready condition sensed when a disk-read or disk-write 
operation was attempted. 

Ready the disk unit and press START. 

5bb 

1 . Librarian-control OPTN card is incorrect, or 
2. Preprocessor phase not on the SYSTEM file. 

1 . Nonprocess run out the cards in the card reader, 
correct the OPTN card, and restart the system, or 
2. If the OPTN card is not incorrect, use the part of the 
system deck labeled AUTOCODER PREPROCESSOR and 
rebuild the preprocessor portion of the system. Follow 
the procedures as described in Building an Autocoder 
System . 

6bb 

One of the following messages precedes this halt: 

ERROR HEADER ABOVE UNKNOWN 

A phase-update card specifies a phase name that is not in 
the phase table . 

ERROR NO KNOWN TYPE OF UPDAT 

Columns 21- ? of a phase-update card are incorrect. 

ERROR CYLINDER OVERFLOW 

The phase-update card specifies that the phase is to be 
placed on a set of sectors that exceeds one cylinder. 

ERROR ACTUAL IDENT UNEQUAL TO HEADER IDENT 

Columns 76-80 of a change card do not contain the phase 
name specified in columns 6-10 of the update control 
card associated with it. 

ERROR NON CONTROL CARD WITHOUT CONTROL 
PRECEDING 

An update card is missing, out of sequence, or mis- 
punched . 

ERROR UNKNOWN EXECUTE CARD 

A change card with 006 punched in columns 1-3 does not 
have =, or =/ or =M punched in columns 6 and 7. These 
punches are found in set-word-mark or clear cards developed 
for a DA statement. No other types of special execute cards 
are permitted. 

ERROR PATCH ABOVE OUTSIDE OF PROGRAM LIMITS 

The phase area cannot contain the data specified in the 
change cards. 

The contents of the error cards are printed . Nonprocess 
run out the cards in the card reader, correct the error card, 
and restart the update operation. Corrections successfully 
completed before the halt occurs need not be reprocessed. 


Figure 14. Halts and Messages (Part 1 of 5) 
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Halt Number 

(A-Address 

Register) 









MESSAGE and/or Meaning 


ERROR CHARACTER COUNT TOO LARGE 

A change card contains a character count greater than 67 
characters. The character count is punched in columns 4 
and 5 . 

ERROR ABOVE CARD CREATES GROUP MARK WORD 
MARK 

A set-word-mark card developed for a DA statement 
attempts to set a word mark over a position containing 
a group mark, or a condensed card contains a word separa- 
tor character followed by a group mark. This is an error 
because a group mark can neither be read from nor written 
in disk storage . 


More than 30 different DTF entries used in the program. 


CONTROL CARD ERROR LIBRARY OPTN 

This halt indicates one of the following conditions: 

1 . An INSER, DELET, or END card is missing or mis- 
punched. 

2. An attempt to insert or delete entries in a library 
routine that does not exist. 

3. Entries not in collating sequence, according to 
macro name and/or sequence number. 


Any disk error that occurs while the bootback routine is 
returning control to the System Control Program. 


More than 300 macros within macros have been used in 
the source program. 


WORK1 capacity exceeded during an AUTOCODER RUN 
THRU OUTPUT or an AUTOCODER RUN THRU EXECU- 
TION, or OUTPUT-file capacity exceeded during an 
AUTOCODER RUN. 


Disk-error condition sensed during the Preprocessor 
phase . 


LIBRARY file capacity exceeded. Part of the library 
routine that was being processed when the halt occurred 
will be in the LIBRARY file. 4ll library routines follow- 
ing the routine being processed will no longer be in the 
LIBRARY file. 



More than 30 different INCLD routines used in one 
overlay . 


Library table (99 macro names) exceeded. 



Correct the source program and reassemble the source 
program from the beginning. 


The contents of the incorrect card(s) are printed. Remove 
the incorrect card(s) and place the remainder of the cards in 
the card reader. If the library change operation is not 
completed, the LIBRARY file cannot be used. 


Press START for one disk retry. 


Correct the source program and reassemble the source pro- 
gram from the beginning. 


Change the WORK1 or OUTPUT ASGN card and restart the 
assembly of the job. 


Press START for ten disk retries. 


To finish the job: 

1 . 1402 card reader: nonprocess run out the cards in the 

reader. Place the END card in the hopper. Press 
START. 

2. 1442 card reader: nonprocess run out the cards in the 

reader. Place the END card in the hopper. Press 
START on the reader and START on the console. 

To determine the names of the routines remaining in the 

LIBRARY file, perform a library-listing operation and specify 

HEADERS in the LISTING OPTN card. 


Correct the source program and reassemble the source program 
from the beginning. 


To finish the job: 

I . 1402 card reader: nonprocess run out the cards in the 

reader. Place the END card in the hopper. Press 
START . 

2. 1442 card reader: nonprocess run out the cards in the 

reader. Place the END card in the hopper. Press 
START on the reader and START on the console. 

To determine the names of the routines in the LIBRARY file, 
perform a library-listing operation and specify HEADERS in 
the LISTING OPTN card. 


Figure 14. Halts and Messages (Part 2 of 5) 
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Halt Number 
(A- Address 
Register) 

MESSAGE and/or Meaning 

Restart Procedure 

001 

WRONG SYSTEM 

The message appears unconditionally on the printer. 

1 . Nonprocess run out the cards in the reader. 

2. Correct the SYSTEM ASGN card, or place the correct 
pack on the unit indicated in the SYSTEM ASGN card. 

3. Restart the stack. 

002 

TEN RD TRIES PRESS STRT FOR 10 MORE 

The message appears unconditionally on the printer. It 
indicates any disk error while attempting to read the 
SYSTEM file. 

Press START for ten disk-read retries. 

003 

SYSTEM ASGN NOT SENSED 

The SYSTEM ASGN card did not immediately follow the 
Card Boot. 

1 . Nonprocess run out the cards in the reader. 

2. Place the SYSTEM ASGN card and the remainder of 
the stack in the read hopper. 

3. If the reader is 1402, press START. 

4. If the reader is 1442, press START on the reader and 
START on the console. 

004 

Parity check, wrong-length record, or no-address- 
compare error sensed 10 successive times during disk 
bootstrap operation. 

Press START for 10 disk -read retries. 

005 

End-of-file sensed in SYSTEM file during disk boot- 
strap operation . 

Nonprocess run out the cards in the reader and restart the s 
stack . 

006 

HALT card image 

Indicates the end of the stack. 

Hard halt. 

007 

Card-punch error. 

1 . 1402 card punch: nonprocess run out the cards in the 

punch. Discard the last three cards (two nonprocessed 
cards and the card in error) in the stacker. 

Press START. 

2. 1442 card punch: discard the last card in the stacker. 

Press START on the punch and START on the console. 

008 

Card-read error. 

1 . 1402 card reader: nonprocess run out the cards in the 

reader. Place the last three cards (two nonprocessed 
cards and the card in error) in the hopper. Press START. 

2. 1442 card reader: nonprocess run out the cards in the 

reader. Place the two nonprocessed cards in the 
hopper. Press START on the reader and START on the 
console . 

009 

Printer error. 

1 . 1403 printer: press START. 

2. 1443 printer: press START on the printer and START on 
the console. 

010 

Nonblank card at the punch station in the 1442 card 
read-punch . 

Nonprocess run out the cards in the 1442. Place blank 
cards before the nonprocessed cards. Press START on the 
1442 and START on the console. 

on 

PAUSE card image. 

Press START. 

012 

Console-printer error 

Press START for one retry of the read cr write operation. 

013 

***ASGN card image 

The halt indicates that the ASGN card is incorrectly 
punched. 

1 . 1402 card reader: the card in the stacker is the in- 

correct ASGN card. Correct the ASGN card. 
Nonprocess run out the cards in the reader. Place the 
corrected ASGN card and the two nonprocessed cards 
in the hopper. Press START. 

2. 1442 card reader: nonprocess run out the cards in the 

reader. The first nonprocessed card is the incorrect 
ASGN card. Correct the ASGN card. Place the 
corrected ASGN card and the second nonprocessed 
card in the hopper. Press START on the reader and 
START on the console . 
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Halt Number 

(A-Address MESSAGE and/or Meaning Restart Procedure 

Register) 


3. If the user wishes, he can ignore the two steps outlined 
above, and press START. The system will then use the 
effective device assignment for that particular file. 

040 The logical file has been assigned to an area that overlaps Hard halt. Change the assignment and restart the stack 

a previously defined file label. (1311 only.) with the Card Boot. 

168 Phase not found in phase table while in supervisory call A part of the System must be rebuilt. Use the parts of the 

for phase. System deck labeled CARD BUILD, SYSTEM CONTROL,and 

AUTOCODER PROCESSOR. Follow the procedures as des- 
cribed in Building an Autocoder System. 


500 Disk not ready. Ready the disk unit and press START. 

629 Parity check, wrong-length record, or no-address-compare Press START for 10 disk-read or write retries, 

error sensed lOsuccessive times during a disk-read or write 
operation . 

777 This halt will occur if the work areas are not large enough. Hard halt. Enlarge work areas to required size and re- 

start the assembly. 

1250 END OF CONTROL CARD DIAGNOSTICS NOTE - As indicated in the message. 

PRESS START TO ASSEMBLE, START-RESET AND START 
TO BYPASS ASSEMBLY 

1447 NOTE - ASSEMBLY ERRORS - PRESS START TO EXE- As indicated in the message . 

CUTE, START - RESET AND START TO BYPASS 
EXECUTION 

1833 NOTE - DIAGNOSTICS - PRESS START TO ASSEMBLE, As indicated in the message. 

START - RESET AND START TO BYPASS ASSEMBLY 

2930 NOTE NUMBER OF ERRORS NEEDING CORRECTION - As indicated in the message. 

nnn TOTAL NUMBER OF DIAGNOSTICS - nnn 
PRESS START TO CONTINUE START-RESET AND 
START TO BYPASS JOB 

START ADDRESS OF INPUT FILE DOES NOT REFER TO If a message is printed and no halt occurs, the next control 

HEADER RECORD card is processed. 

EXPECTED HEADER * (52 Positions) *, FOUND 
/ (52 positions)/ 

EXPECTED ID #XXXXX # , FOUND /XXXXX/ 

NOTE card image 
*** card image 

All cards not recognized by the System Control Program 
are flagged (***), written on the MESSAGE file, and 
bypassed by the System . 

Card image 

INVALID UPDAT TYPE 

Update card with invalid update mode designated. 

PHASE XXX ALREADY ON SYSTEM. WILL DROP THIS 
SET OF CARDS 



PHASE AREA EXCEEDED 
****PROCESSOR UNK NOWN**** 

Figure 14. Halts and Messages (Part 4 of 5) 
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Halt Number 
(A-Address 

Register) MESSAGE and/or Meaning 


CORELOAD NOT ASSIGNED, OPTION NOT DONE 


Restart Procedure 


The next output option is processed. 


CORELOAD FILE NOT ASSIGNED, OPTION NOT DONE 
AND EXECUTION SUPPRESSED 

Image of an output option card - OPTION UNKNOWN 
The next output option card is processed. 

CORELOAD HEADER — (52 positions), ID — (5 positions) 
Use the information in an EXECUTION RUN card. 


CORELOAD OUTPUT COMPLETE ON UNIT n, 

START nnnnnn, END nnnnnn ' ' 


The START address is address of the object program header 
record. The END address is the address of the next avail- 
sector. Use the information in an INPUT ASGN card for 


an EXECUTION RUN 


1ST ) 

OUT > FILE 
INP ) 


STARTS/ 
ENDS j 


ON 



UNIT n AT 


ADDRESS nnnnnn 

XXXXX MACRO NOTIN LIBRARY 

The macro requested (XXXXX) is not in the LIBRARY file. 


END OF LISTING OPTN 

The library-listing job has been completed. 


XXXXX BLOCKS LEFT EOJ 

The library-change operation has been completed. 
XXXXX is the number of blocks available in the 
LIBRARY file. 


END OF SYSTEM OPTN 

The update operation has been successfully completed. 


LIBRARY FILE NOT RECOGNIZED 

The library has not been assigned correctly or the 
library has not been initialized. 


OUTPUT FILE NOT ASSIGNED TO DISK 

The RUN card specifies AUTOCODER RUN or COBOL 
RUN THRU AUTOCODER. The Autocoder text must be 
written on disk . 

INPUT FILE NOT ASSIGNED TO DISK 

The RUN card specifies OUTPUT RUN or OUTPUT RUN 
THRU EXECUTION. An INPUT ASGN card, designating 
the location of the Autocoder Text, is required. 


NO TEXT IN INPUT FILE 

lEOFb sensed in the INPUT file and the Autocoder Text 
has not been processed; or, the assigned INPUT file does 
not contain text. 


Figure 14. Halts and Messages (Part 5 of 5) 
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Building and Updating a COBOL System 


COBOL-System Deck Description and 
Preparation 

The program card deck supplied to the user contains 
six sections as shown in Figure 15. One section, Mark- 
ing Program, is used to separate the sections for ease 
in labeling the various components of the complete 
deck. One section, System Control Modification, is 
used to modify the System Control Program. Three 
sections, Write File-Protected Addresses, cobol Up- 
date, and cobol Macros, are used to build the system. 
The sixth section, Sample Program, is used to test the 


system built by the user. The individual sections are 
separated by marking program control cards. In the 
instances where there is more than one set of cards 
making up a section, a marking program control card 
separates the sets. 

All cards in the system deck, except for the two 
1402 load-card sets, the two 1442 load-card sets, the 
cobol Macros, and the Sample Programs, contain a 
sequence number in columns 72-75. The cards are 
numbered consecutively, beginning with 0001. 

All load cards contain a sequence number in column 




r 


LL 








r 




/ 


( 



/ : 




mm m 


mmim 


Blank Card 


B lankCard 


-1460- 


1440 > SAMPLE PROGRAM 


-1401- 


COBOL MACROS 


COBOL UPDATE 


1402 


1442 


WRITE FILE -PROTECTED ADDRESSES 


SYSTEM CONTROL MODIFICATION 


1402 s 

> MARKING PROGRAM 
,442 ' 


Shaded cards indicate 
Marking Program Control Cards 


Figure 15. COBOL Program Deck 
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80. Each set of 1402 load cards is numbered consecu- 
tively from 1 through 6 and is identified by a 0-4-8 
punch (% symbol) in column 79. Each set of 1442 
load cards is numbered consecutively from 1 through 
7 and is identified by a 3-8 punch (# symbol) in 
column 79. 

If it is necessary to resequence the system deck, the 
user should sort the cards in the following manner: 

1. Sort on columns 79 (0-4-8 punch) to select the 
1402 load cards. 

2. Sort the 1402 load cards on column 80 to sequence 
the cards. 

3. Assemble the two sets of 1402 load cards. 

4. Sort on column 79 (3-8 punch) to select the 1442 
load cards. 

5. Sort the 1442 load cards on column 80 to sequence 
the cards. 

6. Assemble the two sets of 1442 load cards. 

7. Sort the remainder of the system deck on columns 
75, 74, 73, and 72. After sorting, the cobol Macros 
and Sample Programs will be in the reject pocket. 

8. Check the program listing, which is supplied with 
the system deck, and insert the sets of load cards 
in the appropriate places. 

9. Sort the cobol Macros and Sample Programs on 
column 5. After sorting, the cobol Macros will be 
in the reject pocket. 

10. Sort the Sample Programs on columns 4, 3, 2, 1, 
and 80. 

11. Check the program fisting and insert the Sample 
Programs. 

12. Sort the cobol Macros on columns 4, 3, 2, 1, 80, 
79, 78, 77, and 76. 

13. Check the program fisting and insert the cobol 
Macros. 


Marking Program 

The Marking Program deck is made up of two sets. The 
set for the 1442 consists of 13 cards and has identifica- 
tion code 50ZY1 punched in columns 76-80. The set for 
the 1402 consists of 11 cards and has the identification 
code 50ZZ1 punched in columns 76-80. A blank card 
follows each set. 

The Marking Program separates the various sections 
and sets that make up the system deck. When a control 
card is sensed, a halt occurs and a message is printed. 

If the reader is 1442, the initial message is: 


HALT AT EACH DECK SEGMENT. DISCARD 
FIRST CARD, MARK DECK AS PRINTED, 
PRESS START TO CONTINUE. 

If the reader is 1402, the initial message is: 

HALT AT EACH DECK SEGMENT. MARK 
DECK AS PRINTED, PRESS START TO CON- 
TINUE. 

Subsequent messages contain the name of the sec- 
tion to be marked. 

To use the decks: 

1. Set sense switch A on. Set all other sense switches 
off. 

2. Set the I/O check stop switch off. 

3. Press check beset and start reset. 

4. Select the Program Marking deck that is appropriate 
for the system and remove the other deck. 

5. Remove the blank card following the Marking Pro- 
gram and place the program in the card reader, fol- 
lowed by the remainder of the cobol system deck. 

6. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 
program load on the console. 

7. Halt 003 procedure. 

a. 1402 Card Reader: Press start. The Marking 
Program is in the NR stacker. 

b. 1442 Card Reader: Remove the Marking Program 
from stacker 1 and press start on the console. 

8. Halt 001 procedure. 

a. 1402 Card Reader: Remove the cards from 
stacker 1 and press start. Mark the deck section as 
indicated in the message. The Marking Program 
control card is in the NR stacker. 

b. 1442 Card Reader: Remove the cards from 
stacker 1 and press start on the console. Discard 
the first card (Marking Program control card) and 
mark the section as indicated in the message. 

Note: The Marking Program control cards are identified by 
##### in columns 1-5. These cards are only for the 
use of the Marking Program and should be discarded 
after the deck is marked. 

9. When the system attempts to read the last card. 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 
The last card is a Marking Program control card 
and should be discarded. 

The following halts can occur when using the Mark- 
ing Program. To display the halt number, press the A- 
address register key. 
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Halt Number 

A- Address Register Meaning 

001 The deck section in stacker 1 should be 

marked. 

002 End of job. 

003 The initial message has been printed. 

008 Card-read error. To retry the operation, 

For the 1402: Nonprocess run-out the 
cards. Remove the last three cards in the 
stacker and place them in the hopper. 
Press START. 

For the 1442: Nonprocess run-out the 
cards. Place the two nonprocessed cards 
in the read hopper. Press start on the 
reader and start on the console. 

009 Printer error. To retry the operation, 

a. 1403 Printer: Press start. 

b. 1443 Printer: Press start on the 
printer and start on the console. 


System Control Modification 

The system Control Modification deck is punched in 
the Autocoder condensed-loader format and the updat 
control-card format. The deck is made up of approxi- 
mately 5 cards. The updat cards are identified by 
the code 50CB1 punched in columns 76-80. The modifi- 
cation cards are identified by the code 50Sxl punched 
in columns 76-80, where x is alphameric. The function 
of the deck is to modify the System Control Program 
and the assumed logical file assignments of the System 
Control Program. 

Write File-Protected Addresses 

The Write File-Protected Addresses section is punched 
in the Autocoder condensed-loader format. The deck 
consists of approximately 120 cards. 

The set of cards for the 1442 has the identification 
code 50FS1 punched in columns 76-80. The set of cards 
for the 1402 has the identification code 50FP1 punched 
in columns 76-80. 

This section writes disk addresses whose values are 
equal to the normal addresses plus 260,000. It is by use 
of these false addresses that the file-protected area is 
created. 


COBOL Update 

The cobol Update deck is punched in the Autocoder 
condensed-loader format and the updat control-card 
format. The deck is made up of approximately 3300 
cards, and contains the phases of the cobol compiler. 
The updat cards are identified by the code 50CB1 
punched in columns 76-80; the cobol phases are iden- 
tified by the code 50xxl punched in columns 76-80, 


where x is alphameric. The function of the deck is to 
load the cobol compiler phases on the disk unit, thus 
permitting a cobol run. 

COBOL Macros 

The coBOL-macros deck is punched in the Autocoder 
library card format. The deck contains approximately 
1800 cards and is identified by the code 50Mxl punched 
in columns 76-80, where x is alphameric. This deck 
places the cobol object-time subroutines and macro 
instructions that set switches during assembly on the 
Autocoder Macro Library, cobol requires that these 
macros be present during COBOL-output assembly. 

COBOL Sample Program 

The cobol Sample Program consists of approximately 
250 cards. The 1401 deck is identified by the code 
SAMPLE-1 punched in columns 73-80. The 1440 deck 
is identified by the code SAMPLE-2 punched in col- 
umns 73-80. The 1460 deck is identified by the code 
SAMPLE-3 punched in columns 73-80. This source 
deck, written in the cobol language, is used to test the 
effectiveness of the system built by the user. 


Building a COBOL System 

After all sets of cards have been labeled and those sets 
of cards not applicable to the user’s system have been 
removed, the user is ready to use the prepared system 
deck to build the cobol system. 

Figure 16 is a block diagram showing the building of 
a disk-resident system. 

The system unit must be prepared for writing the 
complete system from cards. The user must clear disk 
unit 0 in the move mode from 000000 to 000199, in the 
load mode from 000200 to 000259, in the move mode 
from 000260 to 000299, in the load mode from 000300 
to 007199, and in the move mode from 007200 to 
019979. The Clear Disk Storage Program applicable 
to the user’s system can be used for this operation. 

Figure 16.1 shows the disk storage allocation on the 
system unit. 

The control cards for the utility program must be 
punched in the following manner: 

For 1311, 


Columns 

Contents 

1-15 

M00000000019900 

21-35 

L00020000025900 

41-55 

M00026000029900 

Columns 

Contents 

1-15 

L000300007 1 9900 

21-35 

M00720001997900 
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Figure 16. Building the cobol System. 


For 1301, 


Columns 

Contents 

1-15 

M000000000199* 4 = 

21-35 

L000200000259* * 

41-55 

M000260000299** 

Columns 

Contents 

1-15 

L000300007199 + * 

21-35 

M007200019979 4 = * 


The user must build an Autocoder system, including 
the Autocoder Library. After the Autocoder system 
has been built, the IOCS macros must be inserted into 
the library file of the Autocoder system. The pro- 
cedures for building an Autocoder system and insert- 
ing the IOCS macros into the Autocoder Library are 
described in Autocoder (on Disk) Program Specifica- 
tions and Operating Procedures for IBM 1401, 1440, 
and 1460, Form C24-3259. After the Autocoder system 
has been built, the user is ready to build the cobol 
system. 


System Control Modification 

The System Control Program must be modified. Use 
the deck labeled system control modification to per- 
form this function. Input for the process is as follows. 

1. The 1402 or 1442 Card Boot deck (supplied as a part 
of the Autocoder System Program deck), followed 
by 

2. The system asgn card, which must be punched by 
the user, followed by 

3. The System Control Modification deck, followed by 

4. The halt card, which is the last card of the System 
Control Modification deck. 

To modify the System Control Program when the 
system is to reside on 1311: 

1. Ready the pack on disk drive 0. 

2. Set the I/O check-stop switch off. 

3. Set the check-stop switch and disk- write switch on. 

4. Set the mode switch to run. 

5. Press check reset and start reset. 

6. Place the System Control Modification deck in the 
card reader. 

7. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, 
and program load on the console. 

8. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 
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File 

Mode 

File-Protected 

Sector Range 

SYSTEM File 




Autocoder Preprocessor 

Move 

No 

000000-000089 

Work Area 




Autocoder Preprocessor 

Move 

No 

000090-000199 

Autocoder Preprocessor 

Load 

No 

000200-000259 

Autocoder Preprocessor 

Move 

No 

000260-000299 

Autocoder Preprocessor 

Load 

No 

000300-000899 

Not Used 

Load 

No 

000900-002499 

System Control 

Load 

Yes 

002500-003175 

Program 




Autocoder Assembler 

Load 

Yes 

0031 76-004799 

Program 




COBOL Compiler 

Load 

Yes 

004800-007199 

Program 




WORK1 and WORK2 Files 

Move 

No 

007200-009399 

WORK3 File 

Move 

No 

009400-012899 

LIBRARY File 

Move 

No 

012900-01 9979 


Figure 16.1. Disk Storage Allocation 

To modify the System Control Program when the 
system is to reside on 1301: 

1. Set the I/O check-stop switch off. 

2. Set the check-stop switch and disk-write switch on. 

3. Set the mode switch to run. 

4. Press check reset and start reset. 

5. Place the System Control Modification deck in the 
card reader. 

6. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 

The halts that can occur when using the System 
Control Modification deck are shown in Figure 14. 


Write File-Protected Addresses 

The last card in the section labeled write file protect 
is a control card that is partially prepunched. It is by 
the use of this control card that the limits of the file- 
protected area in the disk-storage unit are supplied. 
The user must indicate in the control card whether the 
system is to reside on a 1301 or 1311 disk unit. For both 
the 1301 and 1311, the system must be built on drive 
unit 0. In the case of the 1311, the system pack can be 


used on any drive once the system has been built. The 
control card is punched as follows: 

Columns Contents 

1-15 FILE-PROTECT ON (prepunched) 

17-20 1301 or 1311 

22 0 ( prepunched ) 

24-42 FROM NORMAL ADDRESS (prepunched) 

44-49 004800 ( prepunched ) 

51-52 TO (preunched) 

54-59 007200 (prepunched) 

After columns 17-20 have been punched by the user, 
the card must be replaced as the last card of the 
section. 

To use the section when the system is to reside on 
1311: 

1. Ready the pack on disk drive 0. 

2. Set the write-address mode switch on. 

3. Set the write-disk switch on. 

4. Set the I/O check stop switch on. 

5. Press check reset and start reset. 

6. Place the Write File-Protected Addresses section in 
the card reader. 

7. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 
program load on the console. 

8. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 
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9. At the end of the job, set the write-address mode 
switch off. 

To use the deck when the system is to reside on 1301: 

1. Set the write-address mode switch on. 

2. Set the write-disk switch on. 

3. Set the I/O check stop switch on. 

4. Press check beset and start reset. 

5. Place the Write File-Protected Addresses section in 
the card reader. 

6. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 
program load on the console. 

7. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 

8. At the end of the job, set the write-address mode 
switch off. 

The following halts can occur when writing file- 

protected addresses. 

Halt Number 

(A-Address Register) Meaning 

020 Last card condition was sensed before 
the control card. The control card con- 
taining the initial and terminal addresses 
of the area to be file-protected must be 
the last card of the deck. When the sys- 
tem is restarted by pressing start, a 
read operation is performed. 

021 An invalid disk type is specified in the 
control card. 1301 or 1311 are the only 
valid entries for columns 17-20 of the 
control card. When the system is re- 
started by pressing start, a read opera- 
tion is performed. 

022 An invalid disk unit is specified in the 
control card. The only valid entry for 
column 22 of the control card is 0. 
When the system is restarted by pressing 
start, a read operation is performed. 

023 An invalid start address (columns 44-49) 
is specified in the control card. The start 
address must be 004800. When the sys- 
tem is restarted by pressing start, a 
read operation is performed. 

024 An invalid end address (columns 54-59) 
is specified in the control card. The end 
address must be 007200. When the sys- 
tem is restarted by pressing start, a 
read operation is performed. 

025 Disk unit 0 is not ready. When the sys- 
tem is restarted by pressing start, the 
disk I/O operation is retried. 

026 The area specified in the control card is 
already file-protected (all or in part). If 
the system is restarted by pressing start, 
the entire specified area will be file-pro- 
tected and cleared. 


Halt Number 

(A-Address Register) Meaning 

027 The area specified in the control card 
has neither the “normal” disk addresses 
(000000-?) nor file-protected addresses. 
This is a hard halt. 

028 Parity check or wrong-length record 
error occurred on the disk unit while 
writing addresses. When the system is 
restarted by pressing start, the disk 
I/O operation is retried. 

029 Parity check or wrong-length record 
error occurred on the disk unit while 
determining the existing addressing 
scheme. This is a hard halt. 

030 End of the job. 


COBOL Update and COBOL Macros 

To build the cobol system, the decks labeled cobol 
update and cobol macros are used. Input for this 
building process is as follows. 

1. The 1402 or 1442 Card Boot deck (supplied as a 
part of the Autocoder system program deck), fol- 
lowed by 

2. The system asgn card, which must be punched by 
the user, followed by 

3. The cobol update deck, followed by 

4. The cobol macros deck, followed by 

5. The halt card, which must be punched by the user. 
To build the system when it is to reside on 1311: 

1. Ready the pack on disk drive 0. 

2. Set the write-address mode switch off. 

3. Set the I/O check-stop switch off. 

4. Set the check-stop switch and disk-write switch on. 

5. Set the mode switch to run. 

6. Press check reset and start reset. 

7. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 
program load on the console. 

8. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 

To build the system when it is to reside on 1301: 

1. Set the I/O check-stop switch off. 

2. Set the write-address mode switch off. 

3. Set the check-stop switch and disk-write switch on. 

4. Set the mode switch to run. 
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5. Press check reset and start reset. 

6. Load the program. 

a. 1402 Card Reader: Press load. 

b. 1442 Card Reader: Press start on the reader, and 
program load on the console. 

7. When the system attempts to read the last card, 

a. 1402 Card Reader: Press start. 

b. 1442 Card Reader: Press start on the reader. 

The halts that can occur when using the cobol update 
and cobol macros decks are shown in Figure 14. 


the Autocoder system program deck, followed by 

2. The system asgn card, which must be punched by 
the user, followed by 

3. The coreload asgn card, followed by 

4. The cobol run thru execution card, followed by 

5. The source program statements and the end of 
source card, followed by 

6. The halt card, which must be punched by the user. 

The procedures for running the Sample Program are 
described in Running a Stack. 


Sample Program 

The Sample Program, which is used to test the effec- 
tiveness of the system built by the user, calculates and 
lists a table of salaries. A listing of the Sample Program 
is shown in Appendix IV. Figure 17 shows the Sample 
Program deck. 

The first card in the Sample Program is a partially 
prepunched control card used for assigning the core- 
load file. 

The user must indicate in the control card whether 
the system resides on a 1301 or 1311 disk unit. The con- 
trol card is punched as follows: 

Columns Contents 

6-13 CORELOAD (prepunched) 

16-19 ASGN (prepunched) 

21-24 1301 or 1311 

26-57 UNIT 0, START 000100, END 000199 (pre- 

punched ) 

The Sample Program is prepared for a stack run in 
the following manner. 

1. The Card Boot deck, which is supplied as part of 


Updating a COBOL System 

The cobol system is updated by the use of pre- 
punched card decks supplied by ibm. All necessary 
control cards and data cards are included in the deck. 

An update job is performed as described in Prepar- 
ing a Stack and Running a Stack 


/halt 

/end of source 


IDENTIFICATION DIVISION 


/COBOL RUN THRU EXECUTION 


/CORELOAD ASGN 


/ SYSTEM ASGN 



Supplied 
by the user 


Supplied by the user 

Supplied in Autocoder System deck 


Figure 17. Sample Program 
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This section contains a summary of the formats of all 
control cards that are required for system operations. 
Each control card is punched in the Autocoder format 
(the label field is in columns 6-15, the operation field is 
in columns 16-20, and the operand field is in columns 
21-72). 

The user is again reminded that in columns 21-72, 
blanks must appear as indicated in the individual 
formats. 

Figure 18 shows the formats of asgn cards and the 
assumed assignments for the logical files. Figure 19 
shows the valid device entries for the asgn cards. 

Figure 20 shows the formats of the following control 
cards: 

Halt (halt) card 

Note (note) card 

Pause (pause) card 

Run (run) cards. 

Note: Update cards are prepunched and included in the card 
decks supplied by ibm for updating the user’s system. 



ASGN Card Format 

Assumed Assignment 

Remarks 

Label Field 
(Columns 6-15) 

Operand Field 
(Columns 16-20) 

Operand Field 
(Columns 21-72) 



SYSTEM 

ASGN 

L 

1311 UNIT n / 
1301 UNIT Oj 

1311 unit — user-assigned 

1301 unit — must be assigned to UNIT 0 

The SYSTEM ASGN card is the only 
required ASGN card. It must follow 
the Card Boot in a stack of jobs. Any 
other SYSTEM ASGN cards in the 
stack are invalid. If the user desires 
that the COBOL system use less than 
the number of core storage positions 
available in the processor machine, 
punch a comma in column 32, and 4K, 
8K, 12K, or 16K beginning in column 
34. 

CONTROL 

ASGN 


READER n / 

CONSOLE PRINTER) 

READER 1 

If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 

MESSAGE 

ASGN 


PRINTER n / 

CONSOLE PRINTER) 

PRINTER 2 

When the MESSAGE file is assigned 
to the CONSOLE PRINTER, carriage 
control characters used with the 1403 
or 1 443 printer may appear in the 
message. If the MESSAGE file and 
the LIST file are assigned to the 
printer, the assignment must be to the 
same printer. 

LIST 

ASGN 

! 

PRINTER n 

1311 UNIT n, START nnnnnn, END nnnnnn 
1301 UNIT n, START nnnnnn, END nnnnnn 
OMIT 


PRINTER 2 

If the LIST file is assigned to 
PRINTER 1 (1403), the Output 
processor of the Autocoder system 
develops a 100-character program 
listing. If the MESSAGE file and the 
LIST file are assigned to the printer, 
the assignment must be to the same 
pri nter . 

INPUT 

ASGN 




READER 1 

If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 

OUTPUT 

ASGN 


PUNCH n ) 

1311 UNIT n, START nnnnnn, END nnnnnn f 
1301 UNIT n, START nnnnnn, END nnnnnn 1 
OMIT ) 

PUNCH 4 (1401 and 1460) 
PUNCH 1 (1440) 


LIBRARY 

ASGN 

il311 UNIT n, START nnnnnn, END nnnnnn 
11301 UNIT n, START nnnnnn, END nnnnnn 


1311 UNIT0, START 012900, END 019980 
1301 UNIT 0, START 012900, END 019980 

1311 is assumed if the SYSTEM file is 
assigned to 1311; 1301 is assumed if 
the SYSTEM file is assigned to 1301 . 

If the MESSAGE, LIST, <nd WORK5 
files are assigned to a printer, the 
assignment must be to the same printer. 

WO RIO 

ASGN 


1311 UNIT n, START nnnnnn, END nnnnnn 
1301 UNIT n, START nnnnnn, END nnnnnn 


1311 UNIT 0, START 007200, END 009400 
1301 UNIT 0, START 007200, END 009400 

WORK2 

ASGN 

1 

11311 UNIT n, START rtnnnnn, END nnnnnn 
1 1 301 UNIT n, START nnnnnn, END nnnnnn 


1311 UNIT 0, START 007200, END 009400 
1301 UNIT 0, START 007200, END 009400 

WORK3 

ASGN 

1 

1311 UNIT n, START nnnnnn, END nnnnnn 
1301 UNIT n, START nnnnnn, END nnnnnn 


1311 UNIT 0, START 009400, END 012900 
1301 UNIT0, START 009400, END 012900 


WORK 4 

ASGN 

I 

1311 UNIT n, START nnnnnn, END nnnnnn 
1301 UNIT n, START nnnnnn, END nnnnnn 
OMIT 


OMIT 


WORK 5 

ASGN 

1 1311 UNIT n, START nnnnnn, END nnnnnn 
; 1301 UNIT n, START nnnnnn, END nnnnnn 
) PRINTER n 
( OMIT 


OMIT 


CORELOAD 

ASGN 

l 

1311 UNIT n, START nnnnnn, END nnnnnn 
1301 UNIT n, START nnnnnn, END nnnnnn 
OMIT 


OMIT 



Figure 18. asgn Card Formats and Assumed Assignments 
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Device Entry and Values of n and nnnnnn 

Remarks 

1311 UNIT n, START nnnnnn, END nnnnnn 

The END address is the address of the next available sector. 

1 1 301 [ 


n is the number of the disk unit, and can be 

The values of nnnnnn must adhere to the following rules: 

0, 1 , 2, 3, or 4; nnnnnn is a disk address . 

1. WORK1 and WORK2 files . If the disk unit is 1311, the 


START address must be a multiple of 200. If the disk unit 
is 1301, the START address must be a multiple of 800. 

The END address (1311 and 1301) must be a multiple of 
40. 

2. WORK3, WORK 4, and WORK5 files. The START and 
END addresses (1311 and 1301) must be multiples of 10. 

3. LIBRARY file. The START and END addresses (131 1 and 
1 301 ) must be multiples of 20 . 

If these rules are violated, the system automatically narrows 
in the disk area to an area that does adhere to these rules. 

READER n 


For 1402, n can be 0, 1 , or 2. 

For 1402, n represents the pocket into which the cards are 


stacked . 

For 1442, n can be 1 or 2. 

For 1442 and 1444, n represents the number of the unit. 

PUNCH n 

For 1402, n can be 0, 4, or 8. 
For 1442, n can be 1 or 2. 

For 1444, n must be 3. 


PRINTER n 

n represents the number of print positions available on the 


T403 or 1443. 

n can be 1 or 2 

For 1403, a 1 indicates 100 positions and a 2 indicates 132 
positions. 

For 1443, a 1 indicates 120 positions and a 2 indicates 144* 
positions. 

*Only 132 print positions are used by the COBOL system. 

CONSOLE PRINTER 

The console printer must be an IBM 1447 without a buffer 
feature . 

OMIT 

Select this option when the file is not to be used by the 
COBOL system. LIST, OUTPUT, WORK4, WORK5, and 
CORELOAD are the only files that can be omitted. 


Figure 19. Valid Device Entries 


Name of Card 

Label Field 
(Columns 6-15) 

Operation Field 
(Columns 16-20) 

Operand Field (Columns 21-72) 

Halt 


HALT 

Any message and/or identification 

Note 


NOTE 

Any message and/or instruction 

Pause 


PAUSE 

Any message and/or instruction 

Run 

COBOL 

RUN 



COBOL 

RUN 

THRU AUTOCODER 


COBOL 

RUN 

THRU OUTPUT 


COBOL 

RUN 

THRU EXECUTION 


Figure 20. Control-Card Formats 
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Appendix II 


The name, identification, and function of each phase 
in the cobol system are given in the following sections. 


System Control Program 

This section describes the phases that make up the 
System Control Program. 


Name ID 

Card Build 50X41 

(1442) 
50X01 
(1402) 

Card Boot 50SZ1 

(1442) 

50PZ1 

(1402) 

System Boot 50S01 


File-Hardware 50S11 
Table 

Input/Output 50S21 
Package 


Super 0 

50S31 

Super 1 

50S41 

Super 2 

50S51 

Super 3 

50S61 

Super 4 

50S71 

Super 5 

50S81 

Super 6 

50S91 

Open 1 

50SA1 

Open 2 

50SB1 

Determiner 

50SC1 


Function 

Builds System Control on a disk 
unit. 


Read the system asgn card and 
reads in the System Boot from 
the specified disk unit. 


1. Determines machine size. 

2. Initializes switches according 
to the type of reader, punch, 
and printer (serial or parallel). 

3. Reads in the I/O package. 

4. Calls the determiner. 

Contains the assumed assignments 

for the logical files. 

1. Reads or writes disk in the 
move or load mode. The mode 
depends on the processor 
operation. 

2. Determines whether the user 
has exceeded specified 

file limits. 

3. Branches to the processor 
phase, or branches to the 
end-of-file routine if the 
end-of-file has been sensed. 

Reads in the specified phase 

from disk storage and branches 

to the specified phase. 


Initializes the specified area with 
a twenty-character control word. 
This control word is obtained 
from the temporary file-hardware 

JL _ 1- 1 _ 

ittuie. 

Reads the control file until a 
control card (halt, pause, note, 
updat, run, or asgn) is sensed. 
When a control card is sensed, 
the determiner causes a halt 
or pauses, prints out a note, calls 
the update determiner, calls 
the selector, or calls the con- 
figurator, depending upon the 
type of card. 


Name 

ID 

Function 

Phase Index 
Table 

50SD1 

Contains the locations of the 
phases in the system. 

Configurator 

50SE1 

Updates the temporary 
file-hardware table as specified 
by the asgn card(s). 

Selector 

50SF1 

Initializes the files used by the 
processor being called, and 
calls the first phase of that 



processor. 

Update 

Determiner 

50SG1 

Determines the type of update 
operation being performed, and 
calls in that particular updater. 

Update Insert 

50SH1 

Places a new phase on the 
system file in any available 
location. 

Update Header 

50SI1 

Updates the header of a phase 
that is in the system file, as 
specified by a header card. 

Update Delete 

50SJ1 

Deletes a phase from the 
system file. 

Update Patch 

50SK1 

Patches a part of a phase on 
the system file. 

Dump 1 

50SL1 

Prints storage on the list file. 

Dump 2 

50SM1 


File Print 1 

50SN1 

Prints all work files on the 
list file. 

File Print 2 

50SO1 


File Print 3 

50SP1 



COBOL Compiler 

This section describes the phases that make up the 
cobol compiler. 


Name 

ID 

Function 

CBL 

50CB1 

Initialization of deblocking routines (getex and 
putex) and I/O buffers. 

A01 

50A01 

Initialization for the rest of the A and B phases. 

All 

50A11 

1. Reads and lists the source program (from the 
input file to the list file). 

2. Delimits items in the source program. 

A02 

50A2I 

1. Outputs Autocoder statements from source 
programs to place file (work3). 

2. Outputs source statements to source-merge 
file (work4). 

A03 

50A31 

1. Inserts internal operators based upon pivoted 
key words present in tables A23 through A53. 

2. Conditions punctuation. 

A23 

50A41 

Table of pivotal key words. 

A33 

50A51 

Table of pivotal key words. 

A43 

50A61 

Table of pivotal key words. 
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Name 

ID 

Function 

Name 

ID 

A53 

50A71 

Table of pivotal key words. 

AA4 

50AF1 

A14 

50A81 

1. Loads core storage with interpretive strings 





for syntax analysis. 

AS5 




2. Positions the getex file (work1/work 2), by 



50501 



division, for phase A24. 

ATS 

50511 

A24 

50A91 

1. Analyzes the source program through the 

AU5 

50521 



use of the interpretive strings. 

2. Inserts diagnostic operators into the stream 

AV5 

50531 



of source program symbols. 

AW5 

50541 

AS2 

502of 


AX5 

50551 

AT2 

50211 


AY5 

50561 

AU2 

50221 


AZ5 

50571 

AV2 

50231 


A-5 

50581 

AW2 

50241 


AJ5 

50591 

AX2 

50251 


AK5 

505A1 

AY2 

50261 


AL5 

505B1 

AZ2 

50271 


AM5 

505C1 

A-2 

50281 

Interpretative strings for identification and 
environment divisions (4K systems only). 

AN5 

505D1 

AJ2 

50291 

A05 

505E1 

AK2 

502 A 1 


AP5 

505F1 

AL2 

502B1 


AQ5 

505G1 

y 

AM2 

502C1 


AA5 

50AG1 

AN2 

502D1 




A02 

502E1 


A34 

50AA1 

AP2 

502F1 


A44 

50AB1 

AQ2 

502G1 




AR2 

502H1 

> 


A05 

50AH1 

AA2 

50AC1 

Interpretative strings for identification and 
environment divisions (8K, 12K, and 16K sys- 



AB2 

50 ADI 

tems only). 

B01 

50B01 

AS3 

5030f 




AT3 

50311 




AU3 

50321 




AV3 

50331 


B02 

50B11 

AW3 

50341 




AX3 

50351 


B12 

50B21 

AY3 

50361 

Interpretative strings for file section of the 
'’"data division (4K systems only). 

B03 

50B31 

AZ3 

50371 


B04 

50B41 

A-3 

50381 




AJ3 

50391 




AK3 

503A1 


B05 

50B5f 

AL3 

503B1 


BX1 

50B61 

AM3 

503C1 


BX2 

50B71 

AA3 

50AE1 

Interpretative strings for file section of the 

BX3 

50B81 



data division (8K, 12K, and 16K systems only). 

BX4 

50B91 

AS4 

5040 1^ 


BX5 

50BA1 

AT4 

50411 


BX6 

50BB1 

AU4 

50421 

Interpretative strings for working-storage and 

BX7 

50BC1 

AV4 

50431 

y CONSTANT SECTIONS of the DATA DIVISION (4K 

AW4 

50441 

systems only). 

BX8 

50BD1 

AX4 

50451 


BX9 

50BE1 

AY4 

50461 

-J 


BX0 

50BF1 


Function 

Interpretative strings for working-storage and 

CONSTANT SECTIONS of the DATA DIVISION (8K, 

12K, and 16K systems only). 


Interpretative strings for the procedure divi- 
sion (4K systems only). 


Interpretative strings for the procedure divi- 
sion (8K, 12K, and 16K systems only). 

Supervises iterations through strings and divi- 
sions. 

Positions getex file (work1/work2) in relation 
to unprocessed data for iterations 

1. Further source-program analysis. 

2. Conditions source program for the rest of 
the compiler. 

1. Substitutes compressed names for source 
names and literals. 

2. Builds name table in core storage. 

3. Determines error conditions associated with 
name-qualification and multi-definitions. 

Determines error conditions associated with 
cobol reserved words used as names within the 
source program. 

Table of cobol reserved words. 

Outputs cobol dictionary on list file. 

1. Creates data description for literals used in 
the source program. 

2. Outputs data descriptions for all items on 
the place file (work3). 


Outputs diagnostic messages on list file. Diag- 
nostic message tables. 
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Name 

ID 

B06 

50BG1 

B07 

50BH1 

C01 

50C01 


C02 50C11 
C03 50C21 
D01 50D01 

D02 50D11 


D03 50D21 
D13 50D31 

D04 50D41 


D05 50D51 

D06 50D61 

EOl 50E01 
E02 50E11 

E03 50E21 

E04 50E31 
E4A 50E41 


Function 

Assigns unique compressed names to multi- 
defined names. 

1. Substitutes unique names when qualified. 

2. Outputs qualified name dictionary on the 
list file. 

Entire phase is executed only if a special- 
names paragraph appears in the source pro- 
gram. 

1. Outputs special-names data descriptions on 
the place file (work3). 

2. Generates Autocoder-COBOL equate cards. 

3. Conditions switch-names for further process- 
ing. 

Optional phase. Processes level-88 items, con- 
verting appearances of condition names in the 
procedure division to conditional expressions. 

Optional phase. Inserts move instructions into 
the overlay portion of the procedure division 
to initialize values of data items. 

1. Analyzes picture clauses to determine size, 
class, decimal count, and editing. 

2. Builds a table of all 01-level names which 
encompass an occurs clause or redefinition. 

1. Builds an internal description for each entry 
used based upon the clauses used in the 
source declarations. 

2. Updates these descriptions with information 
obtained from the picture analysis in 
Phase D01. 

3. Generates diagnostics where discrepancies 
are recognized. 

1. Phase D03 is called only if editing is used. 

2. Builds and declares edit masks and completes 
the edit section of the data description. 

1. Outputs editing masks on place file (work3). 

2. Inserts file-names into write statements. 

3. Converts write-from statements into move 
and write statements. 

1. Builds group size by totaling the elementary 
sizes. 

2. Provides padding for occurs clauses. 

3. Controls nested redefinition sizes and origin 
flags. 

4. Processes subscript levels. 

1. Controls word-mark placement of each entry. 

2. Controls nested redefinition origin names. 

3. Processes file-record equates and sizes. 

4. Outputs storage-declaration macros. 

1. Places the data description of all entries used 
on the place file (work3). 

2. Expands across and outputs storage declara- 
tions on the place file (worx3). 

Generates the job card. 

Collects environment division information in 
core storage for DIOCS entries. 

1. Collects data division information in core 
storage for DTF entries. 

2. Outputs initial DTF information on the 
putex file (work1/worx2). 

Processes open statements and collects file-type 
information in core storage for DTF entries. 

Optional phase. Processes the declaratives sec- 
tion, collecting use information in core storage 
for phase E05. 


Flame ID Function 

E05 50E51 Processes close, read, seek, and write state- 
ments. 

1. Converts disk write statements to special 
read statements to facilitate handling of im- 
plied INVALID KEY Option. 

2. Inserts appropriate file-limits tests and per- 
form statements for disk file read, seek, 
and write statements. 

3. Collects rewind options for tape files from 
the close statements into core storage for 
DTF entries. 

E06 50E61 1. Analyzes information in core storage, deter- 

mining additional DIOCS entries. 

2. Determines error conditions associated with 
DIOCS. 


E07 50E71 Outputs: 

1. ctl card. 

2. org card, if IOCS not used. 

3. DIOCS entries, if IOCS is used on the place 
file (work3). 


E08 50E81 Outputs additional DIOCS entries. 

E8A 50E91 Outputs DIOCS associated diagnostics. 

E09 50EA1 Loads core storage with subroutines to be used 
by the rest of the E-phases. 


(E10, Ell E1A, E12, and E13 operate iteratively by file.) 


E10 50EB1 1. Determines additional DTF entries. 

2. Determines I/O area requirements. 

3. Determines errors associated with DTF en- 
tries. 


Ell 50EC1 Outputs DTF entries on the place file (work3). 

E1A 50ED1 Optional phase. 

Outputs additional DTF entries on the place 
file (work3) when tape files are used in the 
source program. 

E12 50EE1 Outputs DTF associated diagnostics on the 
place file (work3). 


E13 50EF1 Optional phase. Outputs additional DTF entries 
on the place file (work3) when standard labels 
are used in the source program. 

E14 50EG1 Outputs: 

1. DA statements. 

2. MACOP macro. 

3. LDNGO macro (if thru execution is speci- 
fied on the cobol run card) on the place 
file (work3). 

F01 50F01 1. Delimits conditional expressions and the ele- 

ments within them. 

2. Conditions compute statements. 

3. Conditions usage of subscripting. 

F02 50F11 Processes conditional statements, converting ex- 

pressions to the simple relational form. 


F03 50F21 Processes read statements. 


F04 50F31 1. Phase F04 is called if the perform verb is 

used. 

2. Generates labels associated with perform 
statements and inserts them into the per- 
form statements. 

3. Associates “last” name of the perform state- 
ment with the label and builds a table of 
these elements. 
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Name ID Function 

F05 50F41 1. Searches for procedure-names and inserts 

“pending” labels as return-linkages. 

2. The table built in F04 is searched for the 
procedure-names found and the labels are 
made pending. 

G01 50G01 1. Breaks down the following cobol source 

statements into macro form: 

a. ADD 

b. SUBTRACT 

c. MULTIPLY 

d. DIVIDE 

e. MOVE 

f. perform (options 1 and 2) 

g. READ (no AT END). 

2. Conditions perform (options 3, 4, and 5) 
and at end and invalid key options for fur- 
ther processing. 

G02 50G11 1. Processes arithmetic operators in arithmetic 

expressions and compute statements. 

2. Processes relational operators in if and un- 
til expressions. 

3. Passes generated labels and logic connectors 
to phase G03. 

G03 50G21 1. Processes conditional statements. 

2. Ties in generated labels for read linkage, 
until, and if with conditional statements. 


Name ID Function 

102 50111 1. Sets up parameters for display, accept, and 

go to depending subroutines. 

2. Expands if numeric and if alphabetic 
macros. 

3. Selects appropriate library lists for stop 
literal. 

4. Diagnostic scan of conditions. 

5. Selects appropriate library instructions for 

READ, WRITE, OPEN, and CLOSE. 

6. Conditions subscript macros and sets up 
parameters for subscript subroutines. 

103 50121 1. Conditions input data for further processing 

and scans data for validity. 

2. Conditions giving, positive, negative, and 
relational macros for further processing. 

3. Diagnostic scan of arithmetic expressions. 

104 50131 1. Selects appropriate library lists and sub- 

routines for move and move all macros. 

2. Conditions positive and negative macros 
for further processing. 

105 50141 Conditions arithmetic macros for further proc- 

essing by 106. 

a. Keeps a record of intermediate accumu- 
lators. 

b. Calculates decimal alignment. 

c. Optimizes library codes to be selected. 


G04 50G31 1. Expands fixed form cobol statements to 

macro statements. 

2. Creates linkage macros for perform (options 
3, 4 and 5). 

3. Determines number of generated temporary 

buckets needed in object-run arithmetic 

computations. 

C05 50G41 Eliminates redundant linkages in relational 

statement to fully optimize these statements. 

G06 50G51 Eliminates redundant generated temporary 

buckets used in intermediate computations to 

fully optimize arithmetic statements. 

H01 50H01 1. Collects data, device, switch, and literal de- 

scriptions and converts these descriptions to 
table entries. 

2. Processes subscript macros. 

3. Inserts the appropriate data-name after each 
occurrence of a subscript name. 

H02 50H11 1. Sets up storage for Phases H03 and H04 

one-time or iterative processing. 

2. Table initialization. 

3. Clears storage. 

4. Calls H03. 

H03 50H21 1. Builds a table of data descriptions in storage 

from place file (work3). 

2. Calls H04 when the procedure division is 
recognized. 

H04 50H31 1. Merges data descriptions after every name 

in the procedure division that has a de- 
scription. 

2. Iterates back to H02 when necessary. 

101 50101 1. Selects the appropriate lists for fixed expan- 

sions, advancing option, stop run, and 
switches. 

2. Conditions relational macros for further proc- 
essing. 

3. Sets up parameters for examine subroutine. 


106 50151 1. Selects appropriate library lists for arithmetic 

and on size error, macros. 

2. Conditions relational macros for further proc- 
essing. 

107 50161 1. Selects appropriate library lists for all arith- 

metic macros not processed up to this phase. 

2. Selects appropriate library lists for the posi- 
tive and negative macros. 

3. Performs a diagnostic scan of giving and 
giving (rounded) macros. 

4. Processes rounding, editing, and decimal 
alignment of giving macros. 

5. Selects appropriate library lists for giving 
macros. 

108 50171 1. Determines the type of compares to be set 

up for relationals. 

2. Calculates decimal alignment where neces- 
sary for these comparisons. 

3. Selects appropriate library lists and sub- 
routines. 

4. Performs a diagnostic scan of relational 
macros. 

J01 50J01 1. Substitutes all parameters into model state- 

ments (JA2 through JA8) selected from li- 
brary. 

2. Provides for iteration if the tables of Phase 
J02 through J08 (library) will not fit in stor- 
age at one time. 


Library of model statements for 4K and 8K 
systems only. 


J02 50Jlf 
J03 50J21 

J04 50J31 

J05 50J41 >- 

J06 50J51 

J07 50J61 

J08 50J71 
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Name ID 


Function 


JA2 50J81 
JA3 50J91 
JA4 50JA1 
JA5 50JB1 ► 
JA6 50JC1 
JA7 50JD1 
JA8 50JE1 


Library of model statements for 12K and 16K 
systems only. 


J09 50JF1 

J10 50JG1 


Jll 50JH1 


JT1 50 Jll 
JT2 50JJ1 
JT3 50JK1 
J12 50JL1 


J13 50JM1 


1. Sets up subroutine linkages. 

2. Calculates, if necessary, subscript addresses. 

3. Generates calls for cobol macros. 

1. Selects from place file (work3) in the fol- 
lowing sequence and outputs on putex file 
(work1/work2): 

a. job card 

b. Control Card 

c. Origin Card 

d. DIOCS 

e. DTF 

f. Procedure literals 

g. Edit Masks 

h. Storage declarations 

i. File areas 

j. Generate constants, index registers, tem- 
porary storage counters, and tally register 

k. Data literals and data moves 

l. Calls procedure instructions from getex 
file (work1/work2). 

1. Outputs diagnostics occurring because of 
conflictions between data division and pro- 
cedure division. 

2. Merges in Autocoder symbolic statements 
with diagnostics. 

3. Calls in Phases JT1, JT2, and JT3. 

IOCS Data and Procedure diagnostic tables. 
IOCS Data and Procedure diagnostic tables. 
IOCS Data and Procedure diagnostic tables. 

1. Optional merge of cobol source statements 
into Autocoder symbolic output (from work4 
to work1/work2). 

2. Lists diagnostic messages (list file). 

3. Converts diagnostic messages to internal note 
format to be inserted into Autocoder sym- 
bolic output. 

1. Outputs Autocoder symbolic program (out- 
put file). 

2. Optional listing of Autocoder symbolic pro- 
gram (work5). 
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Appendix III: COBOL Macros 


Macro 

Name 

Subroutine 

Name 

Subroutine 

Mnemonic 

Approximate 

Size* 

Reason Macro Called 

M/D 

No M /\ D 

ACEPT 

Accept 

ZAX 

349, (358)1 

349, (358) * 

Use of ACCEPT verb. 

ALCOM 

Alpha Compare 

YAQ 

483 

483 

Alphabetic record with subfields compared to 
any data item. 

DIVDE 

Divide 

DIV 

0 

368 

Use of DIVIDE, exponentiation, or /. 

DIVMC 



7 

10 

In-line expansion of divide function. 

DSPLY 

Display 

ZDY 

586, (62 1) + 

586, (621) r 

Use of DISPLAY verb. 

EDIT1 

Editing 

ZET 

348 

348 

Use of the following: 

(1) COBOL zeros; 

(2) Floating plus or minus; 

(3) DB or single plus. 

EXPIN 

Exponentiation 1 

ZFZ 

480 

486 

When an expression is raised by an integer 
exponent. 

EXPNI 

Exponentiation 2 

ZXZ 

1899 

1930 

When an expression is raised to an exponent 
other than an integer. 

FGCOM 

Compare Figcon 

YCL 

414 

414 

Record with subfields being compared to a 
figurative constant whose SIZE is greater 
than 1 . 

GOTOD 

Go To Depending 

ZGP 

156 

156 

Use of GO TO DEPENDING statement. 

IFALP 

If Alphabetic 

YIP 

166 

166 

All fields whose sizes are greater than 1 which 
are being tested for alphabetic data. 

IFNUM 

If Numeric 

YIN 

148 

148 

All fields whose sizes are greater than 1 which 
are being tested for numeric data. 

INDIX 

Index 

ZSP 

79 

79 

Used when any of the other subroutines are 
called for except multiply and divide. 

LDNGO 



0 

0 

Sets permanent switch to influence macro 
expansions. 

MAC OP 



0 

0 

Sets permanent switch to influence macro 
expansions. 

MPYMC 



7 

10 

In-line expansion of multiply function. 

MULTY 

Multiply 

MPY 

0 

371 

Use of MULTIPLY, exponentiation or *. 

MVALL 

Move All 

ZML 

312 

312 

When the receiving field is a group item. 

MVFTR 

Move Field to Record 

ZMR 

443 

443 

When records of unequal length and subfields 
are involved in a MOVE statement. 

OVLAY 



4 

4 

Use of the VALUE clause for non-88 level 
data items. 

SPLIT 

• Stop Literal 

SLT 

133, (28) A 

133, (28) A 

Use of the literal option of the STOP verb. 

SUBS1 

Subscript 1 

XXJ 

221 

221 

Use of single-depth subscripting. 

SUBS2 

Subscript 2 

XXK 

269 

269 

Use of double-depth subscripting. 

SUBS3 

Subscript 3 

XXL 

318 

318 

Use of triple-depth subscripting. 

XAMIN 

Examine 

XMN 

356 

356 

Use of EXAMINE verb. 


* M/D The size of the subroutine when the multiply/divide special feature is incorporated in the 1401, 1440, or 1460. 

No M/D The size of the subroutine when the multiply/divide special feature is not incorporated in the 1401, 1440, or 1460. 

t The first entry applies to the 1401 and 1460. The entry within the parentheses applies to the 1440. 

A The first entry applies to a 1440 or 1460 system with a console printer. The entry within the parentheses applies to a 1440 

or 1460 system with no console printer. The SPLIT macro is not applicable to a 1401 system. 

Figure 21. cobol Macros 
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COBOL COMPILATION 


CD 

SEQUENCE 


CARO IMAGE 



IDENTIFICAT 

3 

10 

001010 

IDENTIFICATION DIVISION. 



SAMPLE-3 

U- 

20 

001020 

PROGRAM-ID. 3C0B0L SAMPLES. 



SAMPLE-3 

ctT 

30 

001030 

REMARKS. A PROGRAM TO CALCULATE THE WEEKLY AND ANNUAL SALARY 

SAMPLE-3 

1? 

40 

001040 


ASSOCIATED WITH A GIVEN MONTHLY SALARY. MONTHLY SALARY 

SAMPLE-3 

o 

50 

001050 


STARTS AT 500 AND IS INCREASED BY 10 

UNTIL IT EQUALS 1000. 

SAMPLE-3 

OQ 

60 

001060 

ENVIRONMENT DIVISION. 



SAMPLE-3 

S& [ 

3 

70 

001070 

CONFIGURATION SECTION. 



SAMPLE-3 

D 

80 

001080 

SOURCE-COMPUTER. IBM-1460. 



SAMPLE-3 


90 

001090 

OBJECT-COMPUTER. IBM-1460 



SAMPLE-3 


100 

001100 


MEMORY SIZE 4000 CHARACTERS NO-OVERLAP. 

SAMPLE-3 

r ' t- 

110 

001110 

INPUT-OUTPUT SECTION. 



SAMPLE-3 

►—* 

120 

001120 

FILE-CONTROL. 



SAMPLE-3 

o 

130 

001130 


SELECT SALARY-FILE ASSIGN 

TO 1403-P 


SAMPLE-3 

«-t-4 

140 

001140 


RESERVE NO ALTERNATE AREA. 



SAMPLE-3 

OO 

150 

002010 

OATA DIVISION. 



SAMPLE-3 


160 

002020 

FILE SECTION. 



SAMPLE-3 


170 

002030 

FD 

SALARY-FILE 



SAMPLE-3 


180 

002040 


LABEL RECORDS ARE OMITTED 



SAMPLE-3 


190 

002050 


DATA RECORD IS OUTPUT-RECORD. 


SAMPLE-3 


200 

002060 

01 

OUTPUT-RECORD 

PICTURE 

XXI 32a. 

SAMPLE-3 


210 

002070 

WORKING-STORAGE SECTION. 



SAMPLE-3 


220 

002080 

01 

SALARY-RECORD. 



SAMPLE-3 


230 

002090 


02 FILLER 

PICTURE 

XX50O VALUE IS SPACES. 

SAMPLE-3 


240 

002100 


02 WEEKLY-DETAIL-LINE 

PICTURE 

ZZZ.2Z. 

SAMPLE-3 


250 

002110 


02 FILLER 

PICTURE 

XX5n VALUE IS SPACES. 

SAMPLE-3 


260 

002120 


02 MONTHLY-OET A IL— L I NE 

PICTURE 

ZZZZ.ZZ. 

SAMPLE-3 


270 

002130 


02 FILLER 

PICTURE 

XX5a VALUE IS SPACES. 

SAMPLE-3 


280 

002140 


02 ANNUAL-DETAIL— L I NE 

PICTURE 

ZX5a.ZZ. 

SAMPLE-3 


290 

002150 

01 

HEADING-RECORD. 



SAMPLE-3 


300 

002160 


02 FILLER 

PICTURE 

XX50n VALUE IS SPACES. 

SAMPLE-3 


310 

002170 


02 WEEKLY-HEADING-LINE 

PICTURE 

AX6n VALUE 3WEEKLY9. 

SAMPLE-3 


320 

002180 


02 FILLER 

PICTURE 

X*5n VALUE IS SPACES. 

SAMPLE-3 


330 

002190 


02 MONTHLY-HEADING-LINE 

PICTURE 

AX7n VALUE 8M0NTHLY9. 

SAMPLE-3 


340 

002200 


02 FILLER 

PICTURE 

XX6n VALUE IS SPACES. 

SAMPLE- 3 


350 

002210 


02 ANNUAL-HEADING-LINE 

PICTURE 

AX6n VALUE 34NNUAL9. 

SAMPLE-3 


360 

003010 

01 

CORRECT-MESSAGE. 



SAMPLE-3 


370 

003020 


02 FILLER 

PICTURE 

XX5t> VALUE IS SPACES. 

SAMPLE-3 


380 

003030 


02 TABLE- IS - CORRECT 

PICTURE 

AX32a VALUE IS 

SAMPLE-3 


390 

003040 


3 TABLE VALUES ARE 

CORRECT 

S. 

SAMPLE-3 


400 

003050 

01 

INCORRECT-MESSAGE. 



SAMPLE-3 


410 

003060 


02 FILLER 

PICTURE 

XX52Q VALUE IS SPACES. 

SAMPLE-3 


420 

003070 


02 TABLE-I S-NQT-CORRECT 

PICTURE 

AX28n VALUE IS 

SAMPLE-3 


430 

003080 


STABLE VALUES ARE NOT 

CORRECTS. 


SAMPLE-3 


440 

003090 

77 

HASH-TOTAL-COUNTER-WEEKLY 

PICTURE 

9X60V99 VALUE IS ZERO. 

SAMPLE-3 


450 

003100 

77 

HASH-TOTAL-COUNTER-MONTHLY 

PICTURE 

9X6HV99 VALUE IS ZERO. 

SAMPLE-0 


460 

003110 

77 

HASH-TOT AL-COUNTER-ANNUAL 

PICTURE 

9X60V99 VALUE IS ZERO. 

SAMPLE-3 


470 

003120 

77 

WEEKLY-PAY 

PICTURE 

999V99. 

SAMPLE-3 


480 

003130 

77 

MONTHLY-PAY 

PICTURE 

9999V99 . 

SAMPLE-3 


490 

003140 

77 

ANNUAL-PAY 

PICTURE 

9X5HV99. 

SAMPLE-3 


500 

003150 

CONSTANT SECTION. 



SAMPLE-3 


510 

003160 

77 

HASH-TOTAL-OF-WEEKLY-PAY 

PICTURE 9S6UV99 VALUE 008826.69. 

SAMPLE-3 


520 

003170 

77 

HASH-TOTAL-OF-MONTHLY-PAY 

PICTURE 9*6nV99 VALUE 033250.00. 

SAMPLE-3 


530 

003180 

7 7 

HASH-TOTAL-OF-ANNUAL-PAY 

PICTURE 9S6BV99 VALUE 459000.00. 

SAMPLE-3 


540 

004010 

PROCEDURE DIVISION. 



SAMPLE-3 


550 

004020 

START. 



SAMPLE-3 


560 

004030 


OPEN OUTPUT SALARY-FILE. 



SAMPLE-3 


570 

004040 


WRITE OUTPUT-RECORD FROM HEADING-RECORD 

SAMPLEt3 


Appendix IV: COBOL Sample Progra 




gure 22. Sample Program (Part 2 of 8) 


3 


580 
590 
600 
610 
620 
650 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
7 70 
780 
790 
800 
810 
820 
830 
840 


004050 

004060 

004070 

004080 

004090 

004100 

004110 

004120 

004130 

004140 

004150 

004160 

004170 

004180 

004190 

004200 

004210 

005010 

005020 

005030 

005040 

005050 

005060 

005070 

005080 

005090 

005100 


BEFORE ADVANCING 2 LINES. 

PERFORM CALCULATIONS 

VARYING MONTHLY-PAY 
FROM 500 
BY 10 

UNTIL MONTHLY-PAY IS GREATER THAN 1000 
TEST-HASH-TOTALS. 

IF HASH-TOTAL-COUNTER-WEEKLY # 

AND HASH-TOTAL-COUNTER-MONTHLY # 

AND HASH-TOTAL-COUNTER-ANNUAL # 


HASH-TOTAL-OF-WEEKLY-PAY 
HA SH-TQT AL-OF-MONTHLY-PAY 
HA SH-TQT AL-OF-ANNUAL-P AY 


MOVE CORRECT-MESSAGE 
OTHERWISE 

MOVE INCORRECT-MESSAGE 
WRITE OUTPUT-RECORD 

AFTER ADVANCING 2 LINES. 
CLOSE SALARY-FILE. 

STOP RUN. 

CALCULATIONS. 

COMPUTE WEEKLY-PAY 
COMPUTE ANNUAL-PAY 
MOVE WEEKLY-PAY 
MOVE MONTHLY-PAY 
MOVE ANNUAL-PAY 
ADD WEEKLY-PAY 
ADD MONTHLY-PAY 
ADD ANNUAL-PAY 


TO OUTPUT-RECORD 


TO OUTPUT-RECORD. 


/ 13. 


WRITE OUTPUT-RECORD 


* MONTHLY-PAY 

* MONTHLY-PAY. 

TO WEEKLY-DETAIL-LINE. 

TO MONTHLY-DETAIL— LINE. 

ANNUAL-DETAIL-LINE. 
HASH-TOTAL-COUNTER-WEEKLY. 
HASH-TOTAL-COUNTER-MONTHLY. 
HASH-TOTAL-COUNTER-ANNUAL. 
FROM SALARY-RECORD. 


TO 

TO 

TO 

TO 


SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 

SAMPLE-3 
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3 

<£T 


TYPE 

NAME 

SOURCE 

FILE 

A 10 

SALARY-FILE 

REC 

AH 

OUTPUT-RECORD 

DATA 

AI2 

SALARY-RECORD 

DATA 

A13 

WEEKLY-DETAIL-LINE 

DATA 

A 14 

MONTHLY-DETAIL-LINE 

DATA 

A15 

ANNUAL-DETAIL-LINE 

DATA 

A 16 

HEADING-RECORD 

DATA 

A17 

WEEKL Y-HEADING-L INE 

DATA 

A 1 8 

MONTHLY-HEADING-L INE 

DATA 

AID 

ANNUAL-HEADING-LINE 

DATA 

A20 

CORRECT-MESSAGE 

DATA 

A21 

T ABLE -I S-CORRECT 

DATA 

A22 

INCORRFCT-MESSAGE 

DATA 

A23 

TABLE- 1S-N0T-C0RRECT 

OATA 

A24 

HASH-TOTAL-COUNTER-WEEKLY 

DATA 

A25 

HASH- TOTAL-COUNTER-MONTHLY 

DATA 

A26 

HASH- TOTAL-COUNTER-ANNUAL 

OATA 

A27 

WEEKLY-PAY 

DATA 

A28 

MONTHLY-PAY 

DATA 

A29 

ANNUAL-PAY 

DATA 

A30 

HASH-TOTAL-OF-WEEKLY-PAY 

DATA 

A3 1 

HASH-TOTAL-OF-MONTHLY-PAY 

DATA 

A32 

HASH-TOTAL-OF-ANN'JAL-PAY 

PROC 

JOl 

START 

PROC 

J02 

CALCULATIONS 

PROC 

J03 

TEST-HASH-TOTALS 


END OF COMPILATION 



Figure 22. Sample Program (Part 4 of 8) 


LABEL TABLE 


r<0J009 

01662 

nOJOLO 

01690 

aOJOll 

01987 

nO J012 

02013 

DO JO 16 

02241 

HOMO 10 

01702 

nOMO It 

01999 

QOM016 

02253 

AAO 

02254 

AA1 

01744 

ACM 

01426 

AO J 

01503 

AOK 

01502 

AOQ 

01500 

AOR 

01501 

AON 

01499 

A OX 

0 148 L 

A05 

01386 

A10 

00523 

All 

00523 

A12 

00605 

A l 3 

00580 

A 14 

00592 

A15 

00605 

A16 

00686 

A1 7 

00662 

A 1 8 

00674 

AL9 

00686 

A20 

00724 

A21 

00724 

A22 

00805 

A23 

00805 

A24 

00814 

A25 

00822 

A26 

008 30 

A2 7 

00835 

A28 

00841 

A29 

00848 

A30 

00856 

A31 

00864 

A32 

00872 

A3 3 

00574 

A34 

00585 

A35 

00597 

A36 

00656 

A3 7 

00667 

A 3 8 

006 80 

A 39 

00692 

A40 

00777 

A4L 

00 376 

A42 

00383 

A43 

00391 

CNR 

01471 

CNT 

01474 

DAI 

01568 

FA 1 1 

00343 

GNN 

01446 

I A 10 

00343 

10CGMW 

0033 9 

IOCRET 

00 347 

tOCRXl 

00089 

I0CRX2 

00094 

I0CRX3 

00099 

IOCSWT 

00340 

IOCUXT 

00334 

JAL 

02019 

JA4 

01958 

JJ1 

017 44 

JJ2 

01772 

JJ3 

01772 

JS1 

01979 

J01 

01649 

J02 

02019 

J03 

01834 

LAIO 

00392 

LALL 

00392 

L A 1 2 

00525 

LAI 6 

00607 

LA20 

006 8 8 

LA22 

00726 

LTORGX 

01382 

MVEOVR 

01755 

QVRLAY 

01649 

SHR 

01406 

SSI 

01827 

STARTS 

01649 

SOI 

01657 

S02 

01664 

S02029 

01823 

S02033 

01867 

S02034 

01900 

S02035 

01933 

S02041 

02014 

SO 3 

01670 

S04 

01702 

SOS 

01730 

S06 

01738 

S07 

01746 

S08 

01754 

S09 

00359 

SIO 

00361 

Sll 

00 365 

S12 

00366 

SL3 

00368 

S14 

00370 

XL 

00089 

X3 

00099 

Z A l 

01588 

ZA2 

01628 

ZMR 

00873 

ZMRAA A 

00960 

ZMRAA8 

01022 

ZMRADJ 

01232 

ZMRCTR 

01231 

ZMREXT 

01225 

7MRJST 

00278 

ZMRLHR 

00261 

ZMRLHS 

00258 

ZMRRFD 

00264 

ZMRRSB 

00265 

ZMKRSZ 

00268 

ZMRSFO 

OOZ7L 

ZMRSSB 

00272 

ZMRSSZ 

00275 

ZMROOO 

00933 

ZMR001 

00975 

ZMR002 

01043 

ZMR003 

00987 

ZMR004 

01029 

ZMR005 

01094 

ZMR006 

01108 

ZMR008 

01150 

ZMR009 

01164 

ZMROIO 

01282 

ZMRO 1 1 

01216 

ZSP 

01293 

ZSP INI 

01349 

ZSPIN2 

01338 

Z SPOUT 

01356 

ZSPSVl 

01362 

ZSPSV2 

01367 

ZSPSV3 

01372 









Disk COBOL Operating Procedures 


Ox 

05 



3 " “ 

OS' 

-5 

0 ) 

10 

^ 3C0B0L SAMPLES 


SEQ 

PGLIN 

LABEL 

OPCD 

OPERANO 


0001 

0102 


JOB 

3C0B0L SAMPLES 


0002 

0103 


CTL 

l 110 L 

03701D 

0003 

0104* 


diocs 


0004 

0105* 

DIOCSORG 

00334 


0005 

0106* 

lOOEVICES 

PRINTER 


0006 

* 


ORG 

87 


0007 

* 

I0CRX1 

DCW 

a a 


0008 

* 


DC 

a s 


0009 

* 

10CRX2 

DCW 

a a 


0010 

* 


DC 

3 a 


0011 

* 

I0CRX3 

DCW 

a a 


0012 

* 


ORG 

00 3 34 


0013 

* 

IOCUXT 

B 

0 

UNIVERSAL EXIT 

0014 

* 


DCW 

a a, G BLANK 


0015 

# 

IOCGMW 

EQU 

* GROUP MARK 

- WORD MARK 

0016 

* 

incswr 

DC 

a a 


0017 

0107* 


DTF 

LA 10 


0018 

0108* 

FILETYPE 

PRINTER 


0019 

0109* 

IOAREAS 


L A 10 


0020 

* 


DCW 

a. 9a 


0021 

* 

l A 10 

B 

IOCUXT 


0022 

* 

I OC RET 

BIN 

I A 10-2 ,* 

TEST PRINTER ERROR 

0023 

* 


BIN 

incuxT, 



0024 0110 MACOP,l 

0025 0111 S09 DCW 35003 

0026 0112 SIO DCW 310S 

0027 0113 sii dcw aioooa 

0026 0114 S12 DCW £33 

0029 0115 S 13 DCW 3133 

0030 0116 S 14 DCW 3123 

0031 0117 A41 DCW 3 0. 03 

0032 0118 A42 DCW 3 0. 03 

0033 0119 A43 DCW 3 0. 03 


0034 

0120 

LAID 

EQU 

*Cl 

0035 

0121 

LAU 

EQU 

*£l 

0036 

0122 

FA 1 1 

FQU 

I AlO 

0037 

0123 


DCW 

#50 

0038 

0124 

All 

DS 

0008? 

0039 

0125 


ORG 


0040 

0126 


ORG 

*-l 

0041 

0127 


DA 

1X1, G 

0042 

0128 

AlO 

EQU 

All 

0043 

0129 

L A 12 

EQU 

* £ 1 

0044 

0130 

A33 

DCW 

#50 

0045 

0131 

A 1 3 

new 

#6 

0046 

0132 

A34 

DCW 

#5 

0047 

0133 

A 1 4 

DCW 

#7 

0048 

0134 

A35 

DCW 

#5 

0049 

0135 

A15 

DCW 

#8 

0050 

0136 

A12 

EQU 

* 

0051 

0137 


ORG 


0052 

0138 


ORG 

*-l 

0053 

0139 


DA 

1X1 ,G 

0054 

0140 

L Al 6 

EQU 

*£ 1 

0055 

0141 

A36 

OCW 

#50 

0056 

0142 

Al 7 

DCW 

#6 


PAGE 1 

SFX CT LOCN INSTRCTN A-ADD B-ADD .FLAGS 


087 
3 089 

2 091 

3 094 

2 096 

3 099 
334 

4 334 8000 0 

1 338 

339 
1 340 


2 

4 

5 

5 

3 
2 

4 
1 
2 
2 

6 

7 

8 


342 

343 B334 334 

347 B341* 341 

352 B334 334 

♦♦MACRO** 

359 

361 

365 

366 
368 
370 
376 
383 

391 

392 
392 
343 
441 

523 

524 
523 

523 00523 

523 

525 
574 
580 
585 
592 
597 
605 

605 

606 
605 

605 00605 

607 
656 
662 


Figure 22. Sample Program (Part 6 of 8) 






3C0B0L SAMPLES) 


PAGE 2 

SEQ 

PGL1N 

LABfcL 

OPCD 

OPERAND 

SFX CT LDCN 

INSTRCTN A-ADD B-ADD .FLAGS 

0057 

0143 

A37 

DCW 

# 5 

667 

• 

0058 

0144 

AIL 

DCW 

# 7 

674 

* 

0059 

0145 

A38 

DCW 

#6 

680 

• 

0060 

0146 

A19 

DCW 

#6 

686 


006 L 

0147 

A16 

EQU 

* 

686 


0062 

0148 


ORG 


687 


0063 

0149 


ORG 

*-l 

686 


0064 

0150 


DA 

1X1, G 

686 

00636 

0065 

0151 

LA20 

EQU 

*61 

688 


0066 

0152 

A39 

DCW 

If 5 

692 


0067 

0153 

A21 

DCW 

#32 

724 


0068 

0154 

A20 

EQU 

* 

724 


0069 

0155 


ORG 


725 


0070 

0156 


ORG 

*-l 

724 


0071 

015 7 


DA 

1X1 ,G 

724 

00724 

0072 

0158 

LA22 

EQU 

*61 

726 


0073 

0159 


DCW 

#50 

775 


0074 

0160 

A40 

DS 

00002 

777 


0075 

0161 

A23 

DCW 

#28 

805 


0076 

0162 

A22 

EQU 

♦ 

805 


0077 

0163 


ORG 


806 


0078 

0164 


ORG 

*-l 

805 


0079 

0165 


DA 

1X1 ,6 

805 

00805 

0080 

0166 

A24 

DCW 

#8 

814 



0363 

* 


MRCM 

L A10, 201 

MOVE RECORD 

7 

1992 

P392201 

392 

201 



0364 

* 

□OMOil 

W 


PRINT 

1 

1999 

2 





0365 

0330 


CLOSE IAIO 




♦♦MACRO** 





0366 

* 


MLC 

H0J012, IOCUXT £3 

CLOSE I A 10 

7 

2000 

M— 13337 

2013 

337 



0367 

* 


B 

t A 10 64 


4 

2007 

B34 7 

347 




0368 

* 

O0J012 

DCW 

n0J0126l 

RETURN AFTER CLOSE IAIO 

3 

2013 

-14 

2014 




03 69 

0331 

S02041 

H 



1 

2014 






0370 

0332 


B 

S02041 


4 

2015 

B-14 

2014 




0371 

0333 

J02 

EQU 

*61 



2019 






0372 

0334 


2A 

S126000 , DA 1-064 


7 

2019 

6366V04 

366 

1504 



0373 

0335 


MPYMCA28&000, DAI-057 




♦♦MACRO** 





03 74 

♦ 


M 

A286000,DAl-057 


7 

2026 

384 l V 1 1 

841 

1511 



03 75 

0336 


Z A 

600»ZA1620 


7 

2033 

6K60H08 

2260 

1608 



0376 

0337 


A 

DA1-057,ZAI 60006002 


7 

2040 

AV11V90 

1511 

1590 



0377 

0338 


ZA 

600 , DAI 


7 

2047 

6K60V68 

2260 

1568 

• 


0378 

0339 


SW 

DAI-023 


4 , 

2054 

, V45 

1545 


• 


0379 

0340 


ZA 

ZA1 6002, DAI— 001 


7 

2058 

6V90V67 

1590 

1567 

• 


0380 

0341 


MLZS 

DAI-00 l,DAl 


7 

2065 

YV67V68 

1567 

1568 

• 


0381 

0342 


MLZS 

a a,DAi-ooi 


7 

2072 

YK61V67 

2261 

1567 

• 


0382 

0343 


DIVMC SI 36000, DA 1-020 




♦♦MACRO** 



• 


03 83 

* 


D 

S 13E000, DAI— 020 


7 

2079 

S368V48 

368 

1548 

• 


0384 

0344 


ZA 

600,GNN620 


7 

2086 

6K60U66 

2260 

1466 



0385 

0345 


A 

DAI-003, GNN6002601 


7 

2093 

AV65U49 

1565 

1449 



0386 

0346 


CW 

DAI-023 


4 

2100 

nV45 

1545 




0387 

0347 


MLZS 

GNN6003, GNN6002 


7 

2104 

YU49U48 

1449 

1448 



0388 

0348 


ZA 

GNN6002, A27 


7 

2111 

6U48835 

1448 

835 



0389 

0349 


ZA 

Sl46000,DAl-063 


7 

2118 

6370V05 

370 

1505 



0390 

035 0 


MPYMCA286000, DA 1-056 




♦♦MACRO** 





0391 

4 


M 

A286000,DAl-056 


7 

2125 

3841V12 

841 

1512 



|_039j! 

_03 5_1 _ 

- — — — — 

_ZA_ _ 

DA 1-05 6 , A 29 

- - .,< 

7 _ 

_2J 32 . 

CVI28.48 

J 512. 

_ 848 

__ » _ _ _ 

_ 
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Figure 22. 


















3C0B0L SAMPLES 





PAGE 8 




CO 




























3 

•a 

SEQ 

PGl.IN 

LABEL 

OPCD 

OPERAND 



SEX CT 

LOCN 

INSTRCTN 

A-ADD 

B-ADD 

.FLAGS 

cT 

0393 

0352 


MLCWA 

44 1 , A 1 3 



7 

2139 

L376580 

376 

580 


TJ 

0394 

035 3 


MCE 

A27 £000 , A 13 



7 

2146 

E835580 

835 

580 


o 

0395 

0 354 


SW 

A 1 3-006£0 1 



4 

2153 

,575 

575 



SO 

3 

0396 

0355 


MLCWA 

A4? , A 1 4 



7 

2157 

L383592 

383 

592 


0397 

0356 


MCE 

A28C000 * A 14 



7 

2164 

E 84 15 92 

841 

592 



0398 

0357 


SW 

A l 4-007G0 l 



4 

2171 

,586 

586 




0399 

0358 


MLCWA 

A43.A15 



7 

2175 

L 391605 

391 

605 


3. 

0400 

0359 


MCE 

A29GOOO, Al5 



7 

2182 

E848605 

848 

605 



0401 

0360 


SW 

A 1 5-008 EO 1 



4 

2189 

,59 8 

598 




0402 

0361 


A 

A2 7E000, A24EOOO 



7 

2193 

A835814 

835 

814 


o 

040 3 

036? 


A 

A28E000, A25E000 



7 

2200 

A841322 

841 

822 



0404 

0 36 3 


A 

A29E000, A26E000 



7 

2207 

A848830 

848 

830 



0405 

0364 


B 

Z MR 



4 

2214 

B873 

873 




0406 

0365 


DC W 

All 



3 

2220 

523 

523 




0407 

0366 


DC W 

0 



1 

2221 






0408 

0367 


DCW 

132 



3 

2224 






0409 

0368 


DCW 

A12 



3 

2227 

605 

605 




0410 

0369 


DCW 

0 



l 

2228 






04 U 

0370 


DCW 

081 



3 

2231 






0412 

0371 


DCW 

SOOLS 



3 

2234 






0413 

0372 


PUT 

LAlOflAlO 





♦♦MACRO** 





0414 

* 


0 

no JO 16 



4 

2235 

BK41 

2241 




0415 

* 


DCW 

S. 93 PRINTER 

ERROR - 

PRESS START 

2 

2240 






0416 

* 

O0J016 

BIN 

4-6,* TEST PRINTER ERROR 

5 

2241 

BK 39* 

2239 




0417 

* 


MRCM 

LA10.201 

MOVE 

RECORD 

7 

2246 

P392201 

392 

201 



0418 

* 

Q0M016 

W 


PRINT 


l 

2253 

2 





0419 

0373 

A AO 

NOP 

AA1 



4 

2254 

NX44 

1744 




0420 

0374 


END 

STARTS 





W49 

1649 




0421 



LTRL 

3 PS 



1 

2258 






0422 



LTRL 

soo 



2 

2260 






0423 



LTRL 

3 3 



1 

2261 






0424 



LTRL 

SNS 



l 

2262 










END OF LISTING 



NO 

SEQUENCE ERRORS 





CORE LOAD HEAOER-aCOBOL SAMPLES 

CORE LOAD OUTPUT COMPLETE ON 1311 UNIT 0, START 000100, END 000152 


10 - 



gure 22. Sample Program (Part 8 of 8) 


WEEKLY 

MONTHLY 

ANNUAL 

L15.38 

500.00 

6000.00 

117.69 

510.00 

6120.00 

120.00 

520.00 

6240.00 

122.30 

530.00 

6360.00 

124.61 

540.00 

6480.00 

126.92 

550.00 

6600.00 

129.23 

560.00 

6720.00 

131.53 

570.00 

6840.00 

133.84 

580.00 

6960.00 

136.15 

590.00 

7080.00 

138.46 

600.00 

7200.00 

140.76 

610.00 

7320.00 

143.07 

620.00 

7440.00 

145.38 

630.00 

7560.00 

147,69 

640.00 

7680.00 

150.00 

650.00 

7800.00 

152.30 

660.00 

7920.00 

154.61 

670.00 

8040.00 

156.92 

680.00 

8160.00 

159.23 

690.00 

8280.00 

161.53 

700.00 

8400.00 

163.84 

710.00 

8520.00 

166.15 

720.00 

8640.00 

168.46 

730.00 

8760.00 

170.76 

740.00 

8880.00 

173.07 

750.00 

9000.00 

175.38 

760.00 

9120.00 

177.69 

770.00 
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214.61 
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221.53 
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11520.00 
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LIBRARY FILE 7 
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Load-and-Go 23 
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Internal 7 
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MESSAGE File 7, 27 

MULTY Macro 11 

MVALL Macro 11 

MVFTR Macro 12 

Name-Associated Diagnostics 13 

NOTE Card 8 

Object Time 5 

Operating Procedures 20 

Operation 5 

Operation Files 7 

OUTPUT ASGN Card 24, 42 

OUTPUT File 7, 27 

Uutput, Listed 13, 21, 22, 23 

Output Options 21, 22, 23 

PAUSE Card 8 

Phase Descriptions 44 

Preparing ASGN Cards 25 

Processor Jobs 20, 21, 22, 23 

Program, Source 20 

Program, System Control 6 
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SUBS1 Macro 12 

SUBS2 Macro 12 
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System 5 

SYSTEM ASGN Card 24, 42 

System Control Modification 38, 39 
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SYSTEM File 7, 27 
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Timing Considerations 27 
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Update 8 

Update Jobs 20 

Updating a COBOL System 42 

User- Assignments (Logical Files) 24 
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